Kontrollstrukturen, wo liegt das Problem?
11.07.2006 09:02:07
Peter
In meinen beiden Makros will ich die Sperrung eines Teils der Worksheets aufheben, respektive aktivieren. Die Tabellen "Inventar" und "Import" werden nicht geschützt muss ich sie auch bei "aufheben" weglassen.
Bei "DateiSchützen" erhalte ich eine Fehlermeldung, dass beim if-end if Block etwas fehlt. Vielleicht tut ja ein Blick auf das Makro "aufheben" auch gut.
Kann mir jemand sagen, wo das Problem ist?
Danke, Peter
Sub aufheben()
Dim Wks As Worksheet
Dim myPwd As String
'myPwd = Application.InputBox("Passwort eingeben")
For Each Wks In ThisWorkbook.Worksheets
Select Case Wks.Name
Case "Inventar", "Import"
Case Else
Wks.Protect Password:=myPwd
End Select
Wks.Unprotect Password:=myPwd
Range("info").Value = "nicht gesperrt"
End Sub
Sub DateiSchützen()
Dim Wks As Worksheet
Dim myPwd As String
Dim myPwd2 As String
'myPwd = Application.InputBox("Passwort eingeben")
'myPwd2 = Application.InputBox("Wiederholung")
If myPwd = myPwd2 Then
For Each Wks In ThisWorkbook.Worksheets
Select Case Wks.Name
Case "Inventar", "Import"
Case Else
Wks.Protect Password:=myPwd
End Select
End If
Next
End Sub