Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
BeforePrint Caption = ""
Does Any One Knows How to make this Work
Thanks In Advance Private Sub Workbook_BeforePrint(Cancel As Boolean) If ActiveSheet.Name = "Cheque" Then Application.ScreenUpdating = False If DialogSheets("Dialpassword").Show Then With DialogSheets("Dialpassword") .Unprotect ("USA") .EditBoxes(1).Caption = "" With DialogSheets("Dialpassword") senham = .EditBoxes(1).Caption If senham < "your Password here" Then MsgBox "Get a Password!", , "Mexican Furniture" End With End If End With End If Cancel = True End If End Sub |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
BeforePrint Caption = ""
We don't have that DialogSheet, but that apart, what happens when you run
it? -- HTH Bob Phillips "IRMA MENDOSA" wrote in message ... Does Any One Knows How to make this Work Thanks In Advance Private Sub Workbook_BeforePrint(Cancel As Boolean) If ActiveSheet.Name = "Cheque" Then Application.ScreenUpdating = False If DialogSheets("Dialpassword").Show Then With DialogSheets("Dialpassword") .Unprotect ("USA") .EditBoxes(1).Caption = "" With DialogSheets("Dialpassword") senham = .EditBoxes(1).Caption If senham < "your Password here" Then MsgBox "Get a Password!", , "Mexican Furniture" End With End If End With End If Cancel = True End If End Sub |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
BeforePrint Caption = ""
Irma,
Check your End Ifs and End Withs. But what is the use nested "With DialogSheets("Dialpassword")" And won't "senham" always ="" ? NickHK "IRMA MENDOSA" wrote in message ... Does Any One Knows How to make this Work Thanks In Advance Private Sub Workbook_BeforePrint(Cancel As Boolean) If ActiveSheet.Name = "Cheque" Then Application.ScreenUpdating = False If DialogSheets("Dialpassword").Show Then With DialogSheets("Dialpassword") .Unprotect ("USA") .EditBoxes(1).Caption = "" With DialogSheets("Dialpassword") senham = .EditBoxes(1).Caption If senham < "your Password here" Then MsgBox "Get a Password!", , "Mexican Furniture" End With End If End With End If Cancel = True End If End Sub |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Excel - Golf - how to display "-2" as "2 Under" or "4"as "+4" or "4 Over" in a calculation cell | Excel Discussion (Misc queries) | |||
change "true" and "false" to "availble" and "out of stock" | Excel Worksheet Functions | |||
Count occurences of "1"/"0" (or"TRUE"/"FALSE") in a row w. conditions in the next | New Users to Excel | |||
Change a buton "Caption" from VBA | Excel Programming | |||
myMenul.Caption = "P&L Report" | Excel Programming |