wenn sheet aktiv...

Guten schönen Sonnen-Dienstag,
ich habe folgende Frage:
Meine Datei heißt: "Werkstatt.xls"
in der Werkstatt ist eine Sheet heißt "Tabelle1", "Tabelle2" und "Reserve".
Nun möchte ich, wenn in der Sheet1 in der Zelle A1 eine 0 steht, das die
Sheet "Reserve" gelöscht wird, per Command-Button.
Das Problem: Ich habe das Modul mit Passwort versehen "WE" UND wenn die Datei "Werkstatt.xls" das 2. mal geöffnet wird, soll geprüft werden,
1. Modul geschützt ?
2. Die "0" in der "Tabelle1 A1"
3. Ist die Sheet vorhanden ? Prüfung, wenn nicht, dann Msgbox.
Ich hatte mal Beispiel, funktioniert nicht.
If ActiveWorkbook.VBProject.Protection And Cells(1, 1) = "0" And _
Tabelle3("Reserve").Enabled = True Then
MsgBox "In Tabelle1 ist die 0, Tabelle3 vorhanden, Passwort vorhanden,
jetzt Löschen ?"
gruß Walter

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Workbook_Open() If ActiveWorkbook.VBProject.Protection And Sheets("Tabelle1").Cells(1, 1) = "0" Then For Each Tabelle In ActiveWorkbook.Worksheets 'Prüfung ob Tabelle mit Name "Reserve" vorhanden If Tabelle.Name = "Reserve" Then If MsgBox("In Tabelle1 ist die 0, Tabelle3 (Reserve) vorhanden, Passwort vorhanden, jetzt Löschen ?", _ vbYesNo + vbDefaultButton2) = vbYes Then 'Löschen des Blattes ohne weiter Rückfragen Application.DisplayAlerts = False Sheets("Reserve").Delete Application.DisplayAlerts = False End If Exit For End If Next End If End Sub

Hallo Mathias,
bei mir getestet unter Excel97 lief es problemslos, obwohl noch ein Flüchtigkeitsfehler in der 2. DisplayAlerts-Zeile ist. Hier muss auf True zurückgesetzt werden. Die Fehler-Nummer sagt mir gar nichts. evtl.hilft diese kleine Korrektur ja schon weiter:


Private Sub Workbook_Open()
If ActiveWorkbook.VBProject.Protection And Sheets("Tabelle1").Cells(1, 1) = "0" Then
For Each Tabelle In ActiveWorkbook.Worksheets
'Prüfung ob Tabelle mit Name "Reserve" vorhanden
If Tabelle.Name = "Reserve" Then
If MsgBox("In Tabelle1 ist die 0, Tabelle3 (Reserve) vorhanden, Passwort vorhanden, jetzt Löschen ?", _
vbYesNo + vbDefaultButton2) = vbYes Then
'Löschen des Blattes ohne weiter Rückfragen
Application.DisplayAlerts = False
Sheets("Reserve").Delete
Application.DisplayAlerts = True
End If
Exit For
End If
Next
End If
End Sub

gruss Franz

Sub Test() If ActiveWorkbook.VBProject.Protection = 0 And ThisWorkbook.Sheets("Tabelle1").Cells(1, 1) = "0" Then For Each Tabelle In ActiveWorkbook.Worksheets 'Prüfung ob Tabelle mit Name "Reserve" vorhanden If Tabelle.Name = "Reserve" Then If MsgBox("In Tabelle1 ist die 0, Tabelle3 (Reserve) vorhanden, Passwort vorhanden, jetzt Löschen ?", _ vbYesNo + vbDefaultButton2) = vbYes Then 'Löschen des Blattes ohne weiter Rückfragen Application.DisplayAlerts = False ThisWorkbook.Sheets("Reserve").Delete Application.DisplayAlerts = True End If Exit For End If Next End If End Sub

Beliebteste Forumthreads (12 Monate)

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread