Hallo
Ich habe hier ein Makro um den Passwortschutz beim öffnen der Mappe zu deaktivieren.
Kann dieses Makro auch so umgestellt werden das nur bei einem bestimmten User der Schutz deaktiviert wird und bei allen anderen nicht?

Private Sub Workbook_Open()
For Each wk In Worksheets
wk.Unprotect
Next
End Sub

Danke für alle Vorschläge Lisa

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

AW: bei bestimmten User den Schutz deaktivieren

Hajo_Zi
AW: bei bestimmten User den Schutz deaktivieren

lisa
AW: bei bestimmten User den Schutz deaktivieren

Toni
AW:oT Danke Toni, funktioniert echt super!

lisa

AW: bei bestimmten User den Schutz deaktivieren

23.09.2009 10:03:29

Hajo_Zi

Hallo Lisa,
Benutze Environ("Username"). Schaue ma auch ins Archv.

AW: bei bestimmten User den Schutz deaktivieren

23.09.2009 15:51:59

lisa

Hallo
Ich habe in der Recherche nachgesehen und mir was zusammengebaut.
Ich bekomme beim öffnen keinen Fehler aber der Blattschutz wird auch nicht freigegeben.
Hier mal der VBA- Code!

Private Sub Workbook_Open()
Dim BerechtigteUser()
BerechtigteUser = Array("lisa")
If Not IsError(Application.Match(Environ("lisa"), BerechtigteUser, 0)) Then
ThisWorkbook.Protect
Else
ThisWorkbook.Unprotect
End If
End Sub

Ich habe keinen Schimmer was ich noch machen könnte.
Wo liegt der Fehler?
Gruß Lisa

AW: bei bestimmten User den Schutz deaktivieren

23.09.2009 16:14:00

Toni

Hi,

Private Sub Workbook_Open()
Dim wk As Worksheet
If Environ("Username") = "lisa" Then
For Each wk In Worksheets
wk.Unprotect
Next
Else
MsgBox "Nix da!"
End If
End Sub

Gruß Toni

AW:oT Danke Toni, funktioniert echt super!

23.09.2009 16:21:02

lisa

Beliebteste Forumthreads (12 Monate)

Threadtitel

Lesezugriffe
excel wenn text enthält dann

34570
excel wenn eine zelle einen wert enthält dann andere zelle farbig

24061
excel teilstring bis zeichen

17304

Weitere Forumthreads anzeigen

excel zeichen ergänzen

16454

excel scrollen nicht möglich

15664

excel kopieren ohne zellbezug zu ändern

15597

excel wenn zelle buchstaben enthält dann

14741

excel wenn in zelle bestimmter text dann andere zelle text

12560

excel zeichen abschneiden

12157

excel die ersten 3 zeichen löschen

11756

excel wenn dann farbe andere zelle

11071

excel summe ergebnis immer 0

10898

excel zeichen links entfernen

9897

excel prüfen ob wert in zelle enthalten

9794

excel zählenwenns mit oder

9593

wenn ergebnis 0 dann leer

9082

excel links bis zum ersten leerzeichen

8939

vba zelle auswählen und wert eintragen

8934

zählenwenn zeitraum

8685

zählenwenns doppelte werte ausschließen

8421

wert einer zelle in eine andere übernehmen

8052

excel text ab zeichen

8048

excel text ab zeichen ausgeben

8018

excel formel kleiner als und größer als

7782

datum und uhrzeit excel zusammenführen

7731

excel vba letzte zeile mit inhalt ermitteln

7713

excel minuten in stunden und minuten anzeigen

7465

excel wenn zelle x dann zeile ausblenden

7320

excel zeilen ausblenden mit button

7258

excel weißes kreuz geht nicht weg

7175

excel monat aus kalenderwoche als text

6934

excel wenn datum älter als heute dann rot

6800

summewenns ungleich

6577

excel vba zellen löschen

6436

excel spalten in zeilen untereinander

6345

excel formel wenn ergebnis negativ dann 0

6328

excel wenn wert in spalte vorhanden, dann

6233

excel letzte 4 zeichen ausgeben

6120

excel wenn uhrzeit zwischen dann

6090

excel bestimmte wörter aus zelle auslesen

5992

sverweis summe bilden

5936

excel tab wechseln shortcut

5858

excel bedingte formatierung istleer mehrere zellen

5850

excel runterziehen fortlaufend geht nicht

5847

excel datei durch eigenen benutzer gesperrt

5784

excel letztes zeichen abschneiden

5777

excel at zeichen

5701

excel wenn zelle leer dann wert aus zelle darüber

5646

excel wort suchen

5600

excel zelle färben wenn wert in anderer zelle

5595

excel minuten addieren zu uhrzeit

5584

vba suche

5502

excel führende null entfernen formel

5435

summewenn bereich mehrere spalten

5409

excel zählenwenn zelle nicht leer

5259

wenn zelle farbig dann

5218

excel vba zellen färben

5203

sverweis wenn wert nicht vorhanden dann 0

5179

excel vba inputbox ja nein

5156

excel textkette anführungszeichen

5103

excel email aus name vorname

5085

excel buchstaben löschen

4988

wert aus anderer tabelle übernehmen wenn bedingung erfüllt

4976

summewenn nicht

4975

excel datum + 3 monate

4880

excel string enthält

4829

summewenn datum zwischen zwei werten

4824

excel makro mit passwort schützen

4793

excel suchen von rechts nach links

4745

excel erkennt datum nicht als datum

4709

excel 2 linien in einem diagramm

4691

zählenwenn text enthalten

4677

mehrere if bedingungen vba

4669

excel bilder einfügen immer gleiche größe

4656

excel tausendertrennzeichen entfernen

4650

excel text aus zelle übernehmen formel

4623

excel erste buchstaben abschneiden

4603

excel makro beenden

4576

excel spalte mit wert finden

4552

vba text in zahl

4542

excel vba zeilenumbruch im code

4529

excel zelle suchen und zeile ausgeben

4497

excel formel kopieren ohne änderung

4473

excel prüfen ob daten in anderer tabelle vorhanden

4422

excel datum heute darf sich nicht ändern

4414

excel summe und runden

4402

excel uhrzeit

4392

vba zelle in anderem tabellenblatt ansprechen

4318

excel vba userform schließen button

4291

excel gruppe benennen

4286

excel datum als text verketten

4273

kw in datum excel

4269

excel blatt schützen aber filter erlauben

4258

prozent durchschnitt berechnen

4231

zeilenumbruch vba

4203

excel gruppierung wird nicht angezeigt

4198

gestrichelte linie excel entfernen

4196

wenn funktion mit 3 ausgaben

4144

dropdown excel leere zellen ignorieren

4059

excel istleer mehrere zellen

4056

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

Beliebteste Forumthreads (12 Monate)

Threadtitel

Lesezugriffe
excel wenn text enthält dann

34570
excel wenn eine zelle einen wert enthält dann andere zelle farbig

24061
excel teilstring bis zeichen

17304

Weitere Forumthreads anzeigen

excel zeichen ergänzen

16454

excel scrollen nicht möglich

15664

excel kopieren ohne zellbezug zu ändern

15597

excel wenn zelle buchstaben enthält dann

14741

excel wenn in zelle bestimmter text dann andere zelle text

12560

excel zeichen abschneiden

12157

excel die ersten 3 zeichen löschen

11756

excel wenn dann farbe andere zelle

11071

excel summe ergebnis immer 0

10898

excel zeichen links entfernen

9897

excel prüfen ob wert in zelle enthalten

9794

excel zählenwenns mit oder

9593

wenn ergebnis 0 dann leer

9082

excel links bis zum ersten leerzeichen

8939

vba zelle auswählen und wert eintragen

8934

zählenwenn zeitraum

8685

zählenwenns doppelte werte ausschließen

8421

wert einer zelle in eine andere übernehmen

8052

excel text ab zeichen

8048

excel text ab zeichen ausgeben

8018

excel formel kleiner als und größer als

7782

datum und uhrzeit excel zusammenführen

7731

excel vba letzte zeile mit inhalt ermitteln

7713

excel minuten in stunden und minuten anzeigen

7465

excel wenn zelle x dann zeile ausblenden

7320

excel zeilen ausblenden mit button

7258

excel weißes kreuz geht nicht weg

7175

excel monat aus kalenderwoche als text

6934

excel wenn datum älter als heute dann rot

6800

summewenns ungleich

6577

excel vba zellen löschen

6436

excel spalten in zeilen untereinander

6345

excel formel wenn ergebnis negativ dann 0

6328

excel wenn wert in spalte vorhanden, dann

6233

excel letzte 4 zeichen ausgeben

6120

excel wenn uhrzeit zwischen dann

6090

excel bestimmte wörter aus zelle auslesen

5992

sverweis summe bilden

5936

excel tab wechseln shortcut

5858

excel bedingte formatierung istleer mehrere zellen

5850

excel runterziehen fortlaufend geht nicht

5847

excel datei durch eigenen benutzer gesperrt

5784

excel letztes zeichen abschneiden

5777

excel at zeichen

5701

excel wenn zelle leer dann wert aus zelle darüber

5646

excel wort suchen

5600

excel zelle färben wenn wert in anderer zelle

5595

excel minuten addieren zu uhrzeit

5584

vba suche

5502

excel führende null entfernen formel

5435

summewenn bereich mehrere spalten

5409

excel zählenwenn zelle nicht leer

5259

wenn zelle farbig dann

5218

excel vba zellen färben

5203

sverweis wenn wert nicht vorhanden dann 0

5179

excel vba inputbox ja nein

5156

excel textkette anführungszeichen

5103

excel email aus name vorname

5085

excel buchstaben löschen

4988

wert aus anderer tabelle übernehmen wenn bedingung erfüllt

4976

summewenn nicht

4975

excel datum + 3 monate

4880

excel string enthält

4829

summewenn datum zwischen zwei werten

4824

excel makro mit passwort schützen

4793

excel suchen von rechts nach links

4745

excel erkennt datum nicht als datum

4709

excel 2 linien in einem diagramm

4691

zählenwenn text enthalten

4677

mehrere if bedingungen vba

4669

excel bilder einfügen immer gleiche größe

4656

excel tausendertrennzeichen entfernen

4650

excel text aus zelle übernehmen formel

4623

excel erste buchstaben abschneiden

4603

excel makro beenden

4576

excel spalte mit wert finden

4552

vba text in zahl

4542

excel vba zeilenumbruch im code

4529

excel zelle suchen und zeile ausgeben

4497

excel formel kopieren ohne änderung

4473

excel prüfen ob daten in anderer tabelle vorhanden

4422

excel datum heute darf sich nicht ändern

4414

excel summe und runden

4402

excel uhrzeit

4392

vba zelle in anderem tabellenblatt ansprechen

4318

excel vba userform schließen button

4291

excel gruppe benennen

4286

excel datum als text verketten

4273

kw in datum excel

4269

excel blatt schützen aber filter erlauben

4258

prozent durchschnitt berechnen

4231

zeilenumbruch vba

4203

excel gruppierung wird nicht angezeigt

4198

gestrichelte linie excel entfernen

4196

wenn funktion mit 3 ausgaben

4144

dropdown excel leere zellen ignorieren

4059

excel istleer mehrere zellen

4056

bei bestimmten User den Schutz deaktivieren

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread