Replies

Leif,

Don’t worry, no fried Brooke for tea tonight – I’d just swap the entire unit over – I’ve got several spare. I just don’t want to do that if it’s not the power supply. I was just curious because I vaguely remember hearing something about pc’s not booting if the monitor has gone and the pc doesn’t get a sensible signal back from it (presumably because you can’t see what you’re doing so wouldn’t want to go any further?) Unfortunately, whilst I’ve got PSU’s coming out of my ears, I’ve only got the one monitor, (unless i can somehow rig a feed to my laptop?) so i guess i’ll swap the PSU and see if that works.

I would be interested in your top ten list of computer corner shops, though.

Brooke

Legare,

I tried all the leads to make sure they were seated and twiddled all the knobs – no joy.

Leif,

Normally I run the monitor out of the back of the PC, but I’ve tried it from a separate source as well with the same results – no sound, movement or lights from the box and a blank screen, though the ‘power on’ LED on the monitor is on.

Thanks,

Brooke

I use what I think is called ACD Viewer as a default graphics browser – I’d check but my home system is is down at the moment – from a company called ACD Labs??? I got it off cover disc a couple of years ago and think its pretty good. I’ve put Irfan on the works machine and initial comments are that it’s not quite as good as the ACD Viewer but I’ll continue to play with it and see how I go in the long term. The main point with Irfan seems to be the browsing isn’t quite as fluid as with ACD. As for file types though, I rarely get more complicated than jpg so can’t comment on it’s ability there. And another point, it’s not freeware unlike Irfan.

Brooke

Drk,

I’m not sure its actually as bad as it sounds. But, if you can resize the application to fit a worksheet, then you must be able to resize it to fit a userform. That means you get to keep the userform and don’t need to rework it.

The separate instance is more of a problem – as I said, this can be done manually but it would appear you need this to happen programatically. I’ll try and dig something up – don’t hold your breath – but hopefully someone else has done something like this already and will beat me to it or you may end up waiting a long time!

Brooke

Drk,

Yes you can do this – but i probably won’t have the answers to all your questions. Here’s how I would approach it.

1) you hide all the toolbars
2) you change the title (application.caption??)
3) instead of a userform i think you’re better off using fields on a spreadsheet page where (for instance) the cells you want to look like input boxes are left white, the rest of the sheet is coloured a nice pretty colour, throw in the following code

With ActiveWindow
.DisplayGridlines = False
.DisplayHeadings = False
.DisplayHorizontalScrollBar = False
.DisplayVerticalScrollBar = False
.DisplayWorkbookTabs = False
End With

hopefully now you can resize the window to the size you want and the overall effect is somewhere close to what you want.

4) as for a different instance of excel for any other spreadsheet, it again might be easier to put code in the workbook open event of MockApp.xls to open another instance of excel as you open it – what I find when I’m running two instances is that any file I click on through explorer will open in the most recently invoked instance.

5) to sum up, yes what you want can be done but if you take the route above, be careful to restore all settings on closing MockApp.xls. There’s nothing worse than opening excel to find that you have no toolbars and can’t do anything with it. I used to have a workbook that had startup code to restore settings like these for when I screwed up really badly and it came in handy more than once.

HTH

Brooke

For something so hard to trap, you think they’d put more in there!

Brooke

I never seem to be able to record the code for clicking the little x at the top right of the window.

Brooke.

Hiya,

This worked for me

Sub Hide_Dup_Rows()

Dim lRow As Long
Dim lRows As Long
Dim lcol As Long
Dim CurrRow As Long

lRow = Selection.Row
lRows = Selection.Rows.Count
lcol = Selection.Column

For CurrRow = lRow + 1 To lRow + lRows – 1
If ActiveSheet.Cells(CurrRow, lcol).Value = ActiveSheet.Cells(CurrRow – 1, lcol).Value Then
Rows(CurrRow).EntireRow.Hidden = True
End If
Next CurrRow

MsgBox “done:”

End Sub

HTH
Brooke

I think the problem is your reference to ‘activecell’ – what happens if you change both of these to ‘cell’?

Brooke

how about something along the lines of:

For Each sh In Workbooks(“BOOK1.XLS”).Windows(1).SelectedSheets
sh.PageSetup.PrintArea = “$A$1:$C$5”
Next

Would that work?

Brooke

Hiya,

for the non-vba minded, here’s the best I can come up with. Cedit where due to David Hager.
(eee03 for those who are interested. Anybody know what happened to those, by the way?)

a) define the name shtPOS as =GET.DOCUMENT(87)

enter the following formula in all sheets in A2

=”Sheet ” & shtPOS & ” of ” & COUNTA(Sheet1:Sheet3!A1)

c) put a title in all sheets in A1

i) I can’t think of a way to do it without names.
ii) It would be a lot neater if anyone knew how to return the total sheet through GET.DOCUMENT() I couldn’t locate this in any of the eee’s i’ve got(1 thru 19).

HTH

Brooke

I think that this is a known problem with 97 and fixed in 2000. I haven’t tried it but instead of freezing the panes how about splitting the window?

Brooke

Now that’s good. I take it there’s no royalty payments?

Brooke

The code has, IMHO, little value due to the existence of the macro enable /disable box that your users will get when they open the spreadsheet. If macro virus protection were turned off (no, you can’t turn it off in workbook_open, I think it must be triggered by something like before_workbook_open) then it possibly would have the value of allowing you to unhide the sheet when you’re working on the file, but not having the hassle of having to remember to hide the sheet before closing. Not a lot of added value IMHO but worth considering.

The code will work fine whatever the value of .Visible – or should do. This is like painting a red postbox red again. (Okay, it’s nothing like it, but I hope the example works!)

As for the password protection, I think this may be a sidetrack – unless you’ve locked the workbook in the VBE.

FWIW, I would keep the ‘hiding’ code in a personal tools file and lock the project in the VBE. That way the user can’t disable any code and can’t get at the sheet through the VBE – .Visible can be set in the properties panel there as well as via code. Then all you have to worry about is whether the user has his own personal tools file with an ‘unVeryHidden’ proceedure. Or am I starting to get paranoid?

HTH

Brooke

if I read your post correctly, =IF(A1=0,””,A1*10) should get you started.

Brooke