Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.04.2024 18:50:53
Fehlermeldung bei Code - Excel speichern mit Bez. aus Zelle
16.04.2024 17:18:01
Projektplan-Tabelle oder Gantt ohne Balken
16.04.2024 17:05:25
formatierten Text direkt in Zelle einfügen
16.04.2024 16:47:14
Wörter in verschiedenen Zellen suchen und Wert zurückgeben
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
500to504
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
500to504
500to504
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA Passwort setzen und ändern

VBA Passwort setzen und ändern
14.10.2004 20:58:56
claudi
Hallo!
Ich habe folgendes Problem:
Nach dem Start einer Excel_Datei erscheint ein Button, mit dem ich dann 4 weitere Dateien öffne. Im Anschluß erscheint eine UF mit Textfeld 1 und Textfeld 2.
In Textfeld 1 wird das alte Blattschutzkennwort eingetragen und in Textfeld 2 ein neues ( als Ersatz für das Erste in Textfeld 1). Mittels eines Buttons "Speichern" soll das neue Blattschutzkennwort für alle Sheets aller geöffeten Dateien gesetzt werden.
Kann jemand helfen?
Gruß Claudi
PS: Kann heute leider nicht mehr antworten, muß zur Schicht.

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

Betreff
Datum
Anwender
Anzeige
AW: VBA Passwort setzen und ändern
15.10.2004 05:07:51
Nepumuk
Hallo Claudi,
ein Beispielcode:


Option Explicit
Private Sub CommandButton1_Click()
    Dim myWorkbook As Workbook, mySheet As Object
    If Trim$(TextBox1.Text) <> "" And Trim$(TextBox2.Text) <> "" Then
        On Error GoTo Errorexit
        For Each myWorkbook In Application.Workbooks
            For Each mySheet In myWorkbook.Sheets
                mySheet.Unprotect Password:=TextBox1.Text
                mySheet.Protect Password:=TextBox2.Text
            Next
        Next
        Unload Me
    Else
        MsgBox "Ein Kennwort fehlt!", 48, "Hinweis"
        If Trim$(TextBox1.Text) = "" Then
            TextBox1.SetFocus
        Else
            TextBox2.SetFocus
        End If
    End If
    Exit Sub
Errorexit:
    MsgBox "Das alte Kennwort ist falsch!", 48, "Hinweis"
    With TextBox1
        .SelStart = 0
        .SelLength = Len(TextBox1.Text)
        .SetFocus
    End With
End Sub


Damit das setzen des Fokus in die Textboxen funktioniert, muss in den Eigenschaften des Commanbuttons "TakeFocusOnClick" auf False gesetzt sein.
Gruß
Nepumuk
Anzeige
AW: VBA Passwort setzen und ändern
15.10.2004 16:39:22
claudi
Danke, Nepomuk, hat gefunzt!

208 Forumthreads zu ähnlichen Themen

Hilfe: Makro einzelne Zeilen mit Passwort schützen
Michael

Hi!
Liebe Excel-Profis!
Wie schon viele Male vorher vertraue ich auf eure Weisheit und Ratschläge. Nachdem ihr bereits aus einem absoluten Excel-Noob wie mir über die Jahre hinweg einen halbwegs routinierten Anwender gemacht habt, der sogar kleine Makros alleine zusammenstöpseln kann, b...
27.11.2008 20:58:57
Thread-ID: 1028503
5 Beiträge
Anzeige
Code per Makro mit Passwort schützen
Gordon

Moin,
hab zwar schon gesucht, aber bisher nicht gefunden, was mir helfen könnte. Und zwar suche ich einen Befehl, wie man per Makro ein Projekt mit einem Passwort im VBA-Editor schützen kann. Gibt es da eine Möglichkeit?
Gruß
Gordon
02.03.2009 08:57:35
Thread-ID: 1055410
6 Beiträge
Probleme beim Daten per Makro mit PW schützen
Mandy

Hallo,
ich habe eine Mappe, da wird beim Öffnen der Mappe gleich mal der Range B24:F34 gesperrt.
Nun laufen ein paar makros. Da kann es vorkommen, das Daten wieder in den Range geschrieben werden müssen. Also Range wieder freigeben und Daten rein. (passt)
So nun soll ganz am Schlus...
09.10.2009 08:21:11
Thread-ID: 1108439
5 Beiträge
Anzeige
Ausführung eines Makros mit Passwort | Herbers Excel-Forum
Wolfango
Hallo Experten,
kann ich der Ausführung eines Makros die Eingabe eines Passwortes voranschalten?
Und wie?
Danke und Gruß,
Wo.
14.01.2010 16:30:34
Thread-ID: 1129993
4 Beiträge
Datei umbenennen und mit Datum versehen
Matthias

Hallo,
ich möchte mit einem Makro eine Datei kopieren und als Backup woanders ablegen, zusätzlich soll noch als Dateiname ein Wert aus A1 und A2 eingeben plus das Datum.
Also das soll rauskommen "NAMEALT_WertausA1_WertausA2_DATUM.csv"
so weit bin ich schon weiter bringe ich es leide...
15.09.2010 11:09:11
Thread-ID: 1177692
5 Beiträge
Verküpfungen aus Datei mit Passwort aktualisieren
Harald

Hallo zusammen,
in meiner Firma gibt es ein Laufwerk, auf das alle Mitarbeiter Zugriff haben.
Hier befindet sich auch eine Passwort- geschützte Datei auf die nur die Büroleiter zugreifen können, weil denen das Passwort bekannt ist.
In einer zweiten Datei sollen nun nur bestimmte Inf...
14.12.2010 10:58:53
Thread-ID: 1190718
2 Beiträge
Passwortabfrage zum Öffnen eines Blattes
Ina

Hallo Leute,
habe hier eine Passwortabfrage. Wie kann man die umschreiben, das es mit ca. 10-20 bestimmten Passwörten möglich ist. Private Sub CommandButton2_Click() Dim PW Application.ScreenUpdating = False Worksheets("Eingabe").Visible = xlVeryHidden PW = InputBox("Bitte das Passwort ein...
29.01.2011 19:58:13
Thread-ID: 1197988
6 Beiträge
Excel Datei beschädigt - Mit Passwort
Ralf

Hallo,
Ich habe eine Excel Datei die Passwortgeschützt (zum Öffnen) ist (Ist eine Datei mit div. Sheets meine monatliche Datenerfassung)
Nun wollte ich die Datei öffnen und es kommt die Meldung das die Datei beschädigt ist.
Über -Excel -Datei öffnen -Öffnen und reparieren kommt Auf....
23.02.2011 12:31:42
Thread-ID: 1202544
8 Beiträge
Anzeige

Links zu Excel-Dialogen

CommandButton TextBox

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
4
4
5
4
2
3
4
1
5
7
8
2
7
2
1
4
4
4
4
8
1
6
11
2
4