Fehlermeldung bei UserForm
Tim
ich habe eine Tabelle, bei der am Ende des Codes in Workbook_Open eine UserForm ("UserForm1") geöffnet wird.
Die UserForm enthält zwei Buttons ("I don't agree" und "I agree).
Beim ersten Button wird die Tabelle wieder geschlossen, was auch funktioniert.
Beim zweiten Button soll folgender Code laufen, der scheinbar auch funktioniert - allerdings erhalte ich hier am Ende immer einen "Run-time error 1004 - Select method of Range class failed."
Kann mir jemand sagen, wo hier der Fehler liegt ?
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = vbFormControlMenu Then
MsgBox "TEXT", vbCritical, "Deactivated Feature"
Cancel = True
End If
End Sub
Private Sub Agree1_Click()
UserForm1.Hide
' case 2: registered user + Administrator permissions - sheets 1 to 5, 7 and 9 are _
displayed, all features are enabled
If Worksheets(1).Range("F1") = "Administrator" Then
Worksheets(1).Visible = True
Worksheets(2).Visible = True
Worksheets(3).Visible = True
Worksheets(4).Visible = True
Worksheets(5).Visible = True
Worksheets(6).Visible = False
Worksheets(7).Visible = True
Worksheets(9).Visible = True
' registers version date
Worksheets(7).Unprotect "PASSWORT"
Worksheets(7).Range("M6").Value = Date
Worksheets(7).Range("E2").Select
Worksheets(7).Protect UserInterfaceOnly:=True, Password:="PASSWORT"
With ActiveWindow
.DisplayHeadings = False
End With
Worksheets(8).Visible = False
' case 3: registered user + User permissions - sheet 7 is displayed, all other sheets _
and features are disabled
Else
Worksheets(1).Visible = xlVeryHidden
Worksheets(2).Visible = xlVeryHidden
Worksheets(3).Visible = xlVeryHidden
Worksheets(4).Visible = xlVeryHidden
Worksheets(5).Visible = xlVeryHidden
Worksheets(6).Visible = xlVeryHidden
Worksheets(7).Visible = True
Worksheets(9).Visible = xlVeryHidden
' registers version date
Worksheets(7).Unprotect "PASSWORT"
Worksheets(7).Range("M6").Value = Date
Worksheets(7).Range("E2").Select
Worksheets(7).Protect UserInterfaceOnly:=True, Password:="PASSWORT"
' deactivates context menu for sheet tabs
Application.CommandBars("Ply").Enabled = False
' hides row and column titles
With ActiveWindow
.DisplayHeadings = False
End With
Worksheets(8).Visible = xlVeryHidden
' deactivates key combinations for copying, printing, saving as, cutting, saving _
and source code
With Application
.OnKey "^c", "FeatureDeactivated_Msg"
.OnKey "^p", "FeatureDeactivated_Msg"
.OnKey "^s", "FeatureDeactivated_Msg"
.OnKey "^x", "FeatureDeactivated_Msg"
.OnKey "%{F2}", "FeatureDeactivated_Msg"
.OnKey "%{F11}", "FeatureDeactivated_Msg"
End With
End If
VG und vielen Dank im Voraus für jeden Tipp,
Tim
End Sub
Private Sub DontAgree1_Click()
UserForm1.Hide
ActiveWorkbook.Close False
End Sub
Anzeige