Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
572to576
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
572to576
572to576
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Name der Arbeitsmappe prüfen

Name der Arbeitsmappe prüfen
23.02.2005 13:41:48
Harald
Hallo Forum,
ich hab ein Add-In gebastelt. Es soll mir die Passworteingabe abnehmen. Allerdings nur für eine spezielle Mappe. Das möchte ich gerne abfragen um Fehlbedienung mit anderen Dateien auszuschliessen.
Hier mein Ansatz, der jedoch gescheitert ist ;-((

Sub auf()
Dim i
If ActiveWorkbook.Name Like "BONUSSYSTEM_FEHLERENTDECKUNG_Jahr_auf_Transfer" Then
GoTo Weiter
Else
MsgBox "Fehler"
Exit Sub
End If
Weiter:
Application.ScreenUpdating = False
For i = 1 To Worksheets.Count
Sheets(i).Unprotect "Passwort"
Next i
Application.ScreenUpdating = True
End Sub

Gescheitert ist ebenfalls activewindow.name like sowie thisworkbook.name
Was mach ich falsch ?
Danke schonmal für Tipps....und Danke das niemand auf dem angegebenen Level herumreitet ;-))....aber dem Makrorekorder bin ich definitiv entwachsen.
Gruß
Harald

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Name der Arbeitsmappe prüfen
23.02.2005 13:46:24
chris
Hallo schreibe so:
also noch ein * am ende der zeichenfolge.Hoffe es hilft.
If ActiveWorkbook.Name Like "BONUSSYSTEM_FEHLERENTDECKUNG_Jahr_auf_Transfer*" Then
Ps Rückmeldung bitte
Dankeschön, passt
23.02.2005 13:55:02
Harald
....da fällt mir echt nix mehr ein :-/
Ich sollte mich in Grund und Boden schämen.
Gruß
Harald
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige