Laufzeitfehler13....????

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) Application.ScreenUpdating = False x = Sheets("Tabelle1").[A1].Value If x = "Ja" Or x = "Ja aber" Then Sheets("Luxus").Unprotect Password:="Jo" Range("Luxus!L12:W17").Locked = False Sheets("Luxus").Protect Password:="Jo" End If End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) Dim X As String Application.ScreenUpdating = False X = Sheets("Tabelle1").[A1].Value If X = "Ja" Or X = "Ja aber" Then With Sheets("Luxus") .Unprotect Password:="Jo" .Range("L12:W17").Locked = False .Protect Password:="Jo" End With End If Application.ScreenUpdating = True End Sub

Hallo Hajo,
hier ist die gesamte VBA von DieseArbeitsmappe:


Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Sheets("Tabelle1").Unprotect Password:="Ja"
X = Sheets("Tabelle1").[C9].Value
If X = "1" Or X = "59" Or X = "54" Or X = "105" Then
Application.Sheets("Tabelle1").[C9] = Delete
Application.Sheets("Tabelle1").[E31] = Delete
End If
Sheets("Tabelle1").Protect contents:=True, Password:="Herbert"
End Sub


Private Sub Workbook_Open()
Application.DisplayFullScreen = True
Application.DisplayFormulaBar = False
Application.DisplayStatusBar = False
If Range("Tabelle1!E25").Text = "Wastl Bayer" Then
MsgBox "Achtung Bertl..mit Deiner Ser-Nr ist etwas sichtbar, das nur du sehen sollst!"
Else
MsgBox "PeterPan wünscht erfolgreiches Arbeiten mit Lösung 2.20"
End If
If Range("Tabelle1!E25").Text = "Wastl Bayer" Then
Sheets("Leistungsbeschreibung").Visible = True
Else
Sheets("Leistungsbeschreibung").Visible = xlVeryHidden
End If
End Sub


Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Dim X As String
Application.ScreenUpdating = False
X = Sheets("Tabelle1").[E27].Value
If X = "Worker(in)" Or X = "Helper(in)" Then
With Sheets("Eigenleistung")
.Unprotect Password:="POB"
.Range("L12:W17").Locked = False
.Protect Password:="POB"
End With
End If
Sheets("Tabelle1").Unprotect Password:="Herbert"
Sheets("Tabelle1").[K9].NumberFormat = ";;;"
If Sheets("Tabelle1").[C9] = "1111" Then
Sheets("Tabelle1").[E31] = "Eingabe korrekt - Bearbeitung möglich"
End If
If Sheets("Tabelle1").[C9] = "2222" Then
Sheets("Tabelle1").[E31] = "Eingabe korrekt - Bearbeitung möglich"
End If
If Sheets("Tabelle1").[C9] = "1111" Then
Sheets("Tabelle1").[C9].NumberFormat = ";;;"
Else
Sheets("Tabelle1").[C9].NumberFormat = ""
End If
If Sheets("Tabelle1").[C9] = "2222" Then
Sheets("Tabelle1").[C9].NumberFormat = ";;;"
End If
Sheets("Tabelle1").Protect contents:=True, Password:="Herbert"
Application.ScreenUpdating = True
End Sub


Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("Tabelle1").Unprotect Password:="Herbert"
If Sheets("Tabelle1").[C9].NumberFormat = ";;;" Then
Application.Sheets("Tabelle1").[E31] = Delete
Application.Sheets("Tabelle1").[C9] = Delete
End If
If Range("Tabelle1!E25").Text = "Wastl Bayer" Then
MsgBox "Bertl....vor dem Mailen Serien-Nr und Key-Nummer löschen!"
Else
MsgBox "PeterPan freut sich auf den nächsten Einsatz von Lösung 2.20"
End If
Sheets("Tabelle1").Protect contents:=True, Password:="Herbert"
End Sub

Vielen Dank jetzt schon mal für deine Hilfe
Peter

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) Dim X As String Application.ScreenUpdating = False X = Sheets("Tabelle1").[A1].Value If X = "Ja" Or X = "Ja aber" Then With Sheets("Luxus") .Unprotect Password:="Jo" .Range("L12:W17").Locked = False .Protect Password:="Jo" End With End If Sheets("Tabelle1").Unprotect Password:="Herbert" Sheets("Tabelle1").[K9].NumberFormat = ";;;" With Sheets("Tabelle1").[C9] If .Value = "1111" Then .NumberFormat = ";;;" Sheets("Tabelle1").[E31] = "Eingabe korrekt - Bearbeitung möglich" ElseIf .Value = "2222" Then .NumberFormat = ";;;" Sheets("Tabelle1").[E31] = "Eingabe korrekt - Bearbeitung möglich" Else .NumberFormat = "" End If End With Sheets("Tabelle1").Protect contents:=True, Password:="Herbert" Application.ScreenUpdating = True End Sub

With Sheets("Tabelle1").[C9] If .Value = "1111" Then .NumberFormat = ";;;" Sheets("Tabelle1").[E31] = "Eingabe korrekt - Bearbeitung möglich" ElseIf .Value = "2222" Then .NumberFormat = ";;;" Sheets("Tabelle1").[E31] = "Eingabe korrekt - Bearbeitung möglich" Else .NumberFormat = "" End If End With

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) Dim X As String Application.ScreenUpdating = False X = Sheets("Tabelle1").[E27].Value If X = "Worker(in)" Or X = "SubWorker(in)" Then With Sheets("Tabelle2") .Unprotect Password:="Password1" .Range("L12:W17").Locked = False .Protect Password:="Password1" End With ElseIf X = "SubSubWorker(in)" Or X = "" Then With Sheets("Tabelle2") .Unprotect Password:="Password1" .Range("L12:W17").Locked = True .Protect Password:="Password1" End With End If Sheets("Tabelle1").Unprotect Password:="Password2" Sheets("Tabelle1").[K9].NumberFormat = ";;;" With Sheets("Tabelle1").[C9] If .Value = "1111" Then .NumberFormat = ";;;" Sheets("Tabelle1").[E31] = "Eingabe korrekt - Bearbeitung möglich" ElseIf .Value = "2222" Then .NumberFormat = ";;;" Sheets("Tabelle1").[E31] = "Eingabe korrekt - Bearbeitung möglich" Else .NumberFormat = "" End If End With Sheets("Tabelle1").Protect contents:=True, Password:="Password2" Application.ScreenUpdating = True End Sub

Beliebteste Forumthreads (12 Monate)

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread