Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1568to1572
1568to1572
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Blattschutz per VBA in Bereich entfernen

Forumthread: Blattschutz per VBA in Bereich entfernen

Blattschutz per VBA in Bereich entfernen
28.07.2017 08:53:32
Jens
Hallo,
ich würde gerne VBA in Excel ab Zelle B3 bis zum letzten Eintrag der Spalte A den Blattschutz aufheben lassen!
Wie definiere ich ihr den Bereich? Bzw. Wie setzte ich das um?
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Blattschutz per VBA in Bereich entfernen
28.07.2017 09:30:17
Oberschlumpf
Hi Jens
Ich vermute, es soll bei Änderung in Spalte B aktualisiert werden, oder?
Füg ins Modul der Tabelle, um die es geht, diesen Code ein: 

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column  2 Then Exit Sub
If InStr(Target.Address, ";") > 0 Or _
InStr(Target.Address, ":") > 0 Then
Exit Sub
End If
'wenn Blattschutz mit Passwort verwendet, dann in der nächsten Zeile das * vor dem Komma  _
entfernen + das richtige Passwort eintragen
ActiveSheet.Unprotect ', "DeinPasswort"
Range("B:B").Locked = True
Range("B3:B" & Cells(Rows.Count, 1).End(xlUp).Row).Locked = False
'wenn Blattschutz mit Passwort verwendet, dann in der nächsten Zeile das * vor dem Komma  _
entfernen + das richtige Passwort eintragen
ActiveSheet.Protect ', "DeinPasswort"
End Sub

Zeilenumbrüche, die keinen Sinn ergeben, NICHT übernehmen!
Sie werden von der Forumssoftware automatisch eingefügt.
Hilfts?
Ciao
Thorsten
Anzeige
AW: Blattschutz per VBA in Bereich entfernen
28.07.2017 10:03:49
Jens
Hallo,
nein eigentlich kein Automatischer Wechsel. Aktion wäre über Button klicken.
AW: Blattschutz per VBA in Bereich entfernen
28.07.2017 10:11:48
Oberschlumpf
Hi,
super!^^
Und warum erzählst du das nicht gleich?!
Jens, mir ist schon öfter aufgefallen, dass du mit Informationen eher spärlich umgehst.
Versetz dich mal in die Lage desjenigen, der dir helfen will.
Du stellst eine Frage, erzählst aber nur ganz wenig vom Drumherum.
Vielleicht könntest du daran bei deinen nächsten (Erst)Fragen etwas ändern.
Lösch den Code dort, wo er jetzt ist. (ist er denn schon da, wo ich vermutet habe?)
Füg im VBE ein allgemeines Modul ein.
Füg in das Modul diesen Code ein: 

Sub sbUnPro()
If Target.Column  2 Then Exit Sub
If InStr(Target.Address, ";") > 0 Or _
InStr(Target.Address, ":") > 0 Then
Exit Sub
End If
'wenn Blattschutz mit Passwort verwendet, dann in der nächsten Zeile das * vor dem Komma  _
entfernen + das richtige Passwort eintragen
ActiveSheet.Unprotect ', "DeinPasswort"
Range("B:B").Locked = True
Range("B3:B" & Cells(Rows.Count, 1).End(xlUp).Row).Locked = False
'wenn Blattschutz mit Passwort verwendet, dann in der nächsten Zeile das * vor dem Komma  _
entfernen + das richtige Passwort eintragen
ActiveSheet.Protect ', "DeinPasswort"
End Sub

Weise das Makro mit dem Namen "sbUnPro" dem klick-Ereignis des Buttons zu.
Hilfts?
Ciao
Thorsten
Anzeige
AW: Blattschutz per VBA in Bereich entfernen
28.07.2017 10:06:22
Jens
den code verstehen ich nicht. 

If Target.Column  2 Then Exit Sub
If InStr(Target.Address, ";") > 0 Or _
InStr(Target.Address, ":") > 0 Then
Exit Sub
End If

Was hilft mir das?
AW: Blattschutz per VBA in Bereich entfernen
28.07.2017 10:14:58
Oberschlumpf
Target = Ziel = genau die Zelle, die gerade geändert wurde
Column = Spalte
Wenn Ziel nicht in Spalte 2, dann gar nix tun.
Zu Instr() + Target.Address schau dir mal die Excel-Hilfe und/oder Googletreffer dazu an.
Ach ja, wenn meine letzte Antwort (mit Code) auch nicht hilft, dann zeig uns bitte mal eine Bsp-Datei...per Upload; bitte kein Bild oder so.
Anzeige
AW: Blattschutz per VBA in Bereich entfernen
28.07.2017 10:17:29
Werner
Hallo Jens,
meinst du so? 
Public Sub Zellschutz_raus()
Dim loLetzte As Long
With Worksheets("Tabelle1") 'Blatt anpassen
loLetzte = .Cells(.Rows.Count, 1).End(xlUp).Row
.Unprotect "DeinPasswort" 'Passwort anpassen
.Range(.Cells(3, 2), .Cells(loLetzte, 2)).Locked = False
.Protect "DeinPasswort" 'Passwort anpassen
End With
End Sub
Gruß Werner
Anzeige

Forumthreads zu verwandten Themen

VBA Kennwortschutz aufheben & setzen Problem
Andreas

Hallo Herber Fans,
ich habe hier schon im Forum gesucht und auch einen Code gefunden. Es geht um das temporäre Aufheben des VBA Kennwortes im VBA Editor. Das Kennwort in der Beispieldatei ist „test“.
Die Datei wird geöffnet, ein Button wird kreiert. Wenn ich auf diesen Button klicke, er...
03.07.2009 21:26:13
Thread-ID: 1086309
7 Beiträge
Anzeige
Autofilter mit Passwortschutz beim öffnen entferne
Stephan

Guten Tag zusammen,
Ich habe eine Passwortgeschützte Tabelle bei der der Autofilter aktiv ist.
Beim öffnen der Tabelle soll jedoch jeweils der Autofilter entfernt werden und die Tabelle jedoch wieder mit Passwortschutz versehen werden. Dabei soll der Filter bedient werden können. Auch s...
21.10.2014 12:07:45
Thread-ID: 1387734
3 Beiträge
VBA Passwort vergessen
Michel

Hallo zusammen
Ich Dummkopf habe in meiner Excel das VBA Passwort vergessen und komme nun nicht mehr zu dem Code.
Kann mir hier jemand helfen?
Hier wäre noch meine File:
https://www.herber.de/bbs/user/95639.xlsm
Danke vorbau für eure Hilfe
Gruss
Michel
09.02.2015 14:53:16
Thread-ID: 1408201
5 Beiträge
VBAProjekt Passwort vergessen
Chris

Hallo Leute,habe mal vor langer Zeit ein kleines VBAProjekt mit Passwort geschützt.
Jetzt müsste ich das Projekt erweitern und mir fällt das Passwort nicht mehr ein.
Kan mir da jemand Helfen?
Gruß
Chris
20.08.2002 10:52:46
Thread-ID: 150507
3 Beiträge
Kennwort zum Öffnen + Makros aktivieren
Kisska

Hallo allerseits,
wieso werden Makros deaktiviert, wenn man eine Datei mit dem Kennwort zum Öffnen verseht? Kann man dies irgendwie umgehen?
Viele Grüße
Kisska
28.05.2017 17:29:12
Thread-ID: 1560766
6 Beiträge
Anzeige
VBA-Passwort vergessen!
Nadine

Hallo zusammen!

Ich habe vor einiger Zeit ein VBA-Projekt (Add-In) per Passwort geschützt, und habe dieses nun vergessen!

Gibt es irgendeine Möglichkeit, es wiederzufinden? Das Paswort bestand aus einem Wort und Ziffern.
Ich weiß noch...
...das Wort (aber nicht, ob Groß- o...
30.06.2003 13:58:40
Thread-ID: 275418
6 Beiträge
Anzeige
VBA Passwort vergessen
Carsten Kramer
Hallo,
Habe meine Makros und Autotexte in Word geschützt und kann mich nicht mehr an mein Passwort erinnern. Kann mir jemadn helfen wie ich mein Passwort rauskriege? ich habe es bereits mit AVPRo probiert aber es erschein nur " Password unavailable"
Danke.
Carsten
16.11.2003 00:00:32
Thread-ID: 338770
4 Beiträge
Leerzeilen entfernen geht nicht!?
Logan

Hallo nochmal,
Ich hab jetzt noch ein Problem:
Sub LeereZeilenlöschen() Dim Bereich1 As Range Dim Bereich2 As Range Dim Bereich3 As Range Sheets("Tabelle1").Activate Set Bereich1 = Range(Cells(1, 1), _ Cells(ActiveSheet.UsedRange.Rows.Count, 1)) Set Bereich1 = Bereich1.SpecialCells(xlB...
01.01.1970 00:00:00
Thread-ID: 414467
8 Beiträge
VBA_Exceldatei (Passwort vergessen)
René

Hallo
Ich habe ein grosses Problem. Unter der Version MS Office 97 habe ich eine XLA mit Code erstellt. Das ist natürlich schon lange her und jetzt müsste ich den Code neu anpassen unter der Version von Excel 2000.
Jetzt kommt das Porblem. Ich habe eine Einstellung gemacht und ein Pass...
23.12.2004 08:41:02
Thread-ID: 537248
11 Beiträge
Anzeige
VBA Passwort vergessen Hilfe
Mario

Hallo Leute,
ich habe vor ca. 2 Jahren ein wenig in VBA rumprogrammiert. Nun wollte ich die Datei endlich mal überarbeiten, und einige Sachen verbessern. Leider fällt mir das VBA Passwort nicht mehr ein. Kann mir irgendjemand helfen. Ich würde die Datei auch zum entschlüsseln verschicken.
02.02.2005 20:32:38
Thread-ID: 560071
9 Beiträge
VBA Passwort vergessen
Jemp

Hallo alle zusammen
Ich habe mein VBA-Passwort vergessen und gelange nun nicht mehr in meine Macrocodes.
Habe schon gegoogelt und auch hier im Forum gesucht aber leider nichts passendes gefungen.
Kann mir einer helfen
Danke
Jemp
19.01.2006 11:47:22
Thread-ID: 721294
5 Beiträge
VBA Passwort wird beim Öffnen abgefragt
Christian

Hallo Community,
ich verwende eine Exceldatei mit einem passwortgeschützten VBA-Code. Nachdem ich ein paar Kleinigkeiten in der Datei verändert habe, erscheint bei einem Kollegen beim Öffnen der Datei eine Dialogbox, in der er aufgefordert wird, das VBA-Passwort einzugeben. In der Arbeitsma...
20.01.2021 10:37:07
Thread-ID: 1806955
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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