Error Meldung!?
16.03.2009 13:24:17
Timmy
ich habe 2 grosse (kleine!?) Probleme.
In meiner Datei kann ich ueber drei verschiedene CommandButtons in jeweilge Sheets meines Workbooks rein.
1. Problem: Das klappt zwar auch fuer jeden Button, jedoch gibt mir Excel nach dem Klicken auf den Button eine Error-Meldung und geht dann erst auf das Sheet. An was koennte das liegen?
2. Problem: Ich habe (wie ihr im Code sehen koennt), nur bestimmte Zellen "ungelocked", jedoch funktioniert das nicht, und ich kann immer noch alle Zellen bearbeiten.
Anbei habe ich den Code des ersten Buttons eingefuegt: (fuer die anderen Buttons ist er ziemlich aehnlich (sind halt andere Zellen gesperrt)
Private Sub CommandButton1_Click()
MsgBox ("All yellow information is required by Sales!"), vbExclamation, "Please be aware" _
Unload Me
On Error GoTo showErrorMsg
Unload UserForm1
Sheets("Fastcap").Visible = True
Application.ScreenUpdating = True
Sheets("Title").Visible = xlVeryHidden
Sheets("Proposal").Visible = xlVeryHidden 'Sets the _
visibility of each sheet
Sheets("Cost Calculation").Visible = xlVeryHidden
Sheets("Data").Visible = xlVeryHidden
Sheets("Data").Unprotect Password:="1346"
'PW for unprotecting sheet and/or (un)lock cells
Worksheets("Fastcap").Unprotect Password:="1578" _
Worksheets("Fastcap").Range("H6").Locked = False
Worksheets("Fastcap").Range("H10:H13").Locked = False
Worksheets("Fastcap").Range("X6").Locked = False
Worksheets("Fastcap").Range("X8").Locked = False
Worksheets("Fastcap").Range("X10:X15").Locked = False
Worksheets("Fastcap").Range("C25:AU29").Locked = False
Worksheets("Fastcap").Range("C35:AU39").Locked = False
Worksheets("Fastcap").Range("C43:AU46").Locked = False
Worksheets("Fastcap").Range("AO:AU52").Locked = True
Worksheets("Fastcap").Range("AN8:AU8").Locked = True
Worksheets("Fastcap").Range("C53:AU54").Locked = True
Worksheets("Fastcap").Range("C61:P70").Locked = True
Worksheets("Fastcap").Range("R61:W70").Locked = True
Worksheets("Fastcap").Range("AB61:AF70").Locked = True
Worksheets("Fastcap").Range("AH61:AI70").Locked = True
Worksheets("Fastcap").Range("AP61:AU70").Locked = True
Worksheets("Fastcap").FastcapSaveButton1.Visible = True
Worksheets("Fastcap").Protect Password:="1578"
Application.ScreenUpdating = False
ActiveWindow.DisplayWorkbookTabs = True
GoTo endSubOrFunction
showErrorMsg: 'Customer Special Request Department
MsgBox "ERROR OCCURRED: " & vbNewLine & vbNewLine & _
"Please contact CSR Department!" & vbNewLine & _
vbNewLine & _
"Source: ThisWorkbook.CommandButton1" & vbNewLine & _
Err.Description & " [#" & Err.Number & "]", vbCritical, "Error message"
endSubOrFunction:
End Sub
Ich hoffe, ihr koennt mir helfen.
Vielen Dank und liebe Gruesse
Timmy