MS-Office-Forum

Zurück   MS-Office-Forum > Microsoft Office > Microsoft Excel
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Antworten
Ads
Themen-Optionen Ansicht
Alt 30.06.2015, 14:30   #1
Pia_H.
Neuer Benutzer
Neuer Benutzer
Standard VBA - Blattschutz aufheben

Hallo,

ich bin gerade am verzweifeln bei einem Excel Problem.
Vllt kann mir ja jemand helfen.

Also ich habe verschiedene Arbeitsblätter mit Blattschutz erstellt. Bei einem habe ich auch ein DropDown Menü aber das lässt sich einfach nicht ausführen. Ich hab schon alles mögliche probiert was mir eingefallen ist:

- denn Hacken bei Formatierung im DropDown-Feld der Sperre entfernt
- Berechtigung zur Beschriftung mit der Verknüpften Zelle
- dann über unprotect/protect über VBA. Mein Code schaut momentan so aus:

Sub Dropdown6_BeiÄnderung()
Sheets("Ist ein AP notwendig").Unprotect Password:="test"

Select Case Sheets("Ist ein AP notwendig").Cells(31, 6).Value
Case 1 ' - Ausblenden
Worksheets("AccountPlan Übersicht").Visible = False
Worksheets("ProjektAccountPlan").Visible = False
Case 2 ' ja Einblenden
Worksheets("AccountPlan Übersicht").Visible = True
Worksheets("ProjektAccountPlan").Visible = True
Case 3 ' nein Ausblenden
Worksheets("AccountPlan Übersicht").Visible = False
Worksheets("ProjektAccountPlan").Visible = False
End Select

Sheets("Ist ein AP notwendig").Protect Password:="test"

End Sub

Das Makro aktiviert zwar den Schutz aber deaktiviert ihn davor nicht.

Hab das Unprotect dann auch schon mal in ein extra Makro geschrieben, wenn ich da auf ausführen klick dann klappt es.

Wenn ich das extra Makro über Call in mein Hauptmakro einbau funktioniert es wieder nicht.

Währe super wenn mir jemand helfen kann, damit ich die DropDown-Auswahllist ausführen kann.

Schon mal Danke im Voraus.

Gruß
Pia
Pia_H. ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 30.06.2015, 14:53   #2
aloys78
MOF Meister
MOF Meister
Standard

Hallo Pia,

probier mal so:
Code:

    Case "1 ' - Ausblenden"
Gruß
Aloys
aloys78 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 30.06.2015, 15:01   #3
Pia_H.
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

Hallo Aloys,

hab ich probiert geht aber leider immer noch nicht.
Habe auch mal die komplette Bemerkung entfernt also so das nur Case 1 da stand, hat er aber auch nicht gemacht.

Gruß
Pia
Pia_H. ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 30.06.2015, 15:22   #4
aloys78
MOF Meister
MOF Meister
Standard

Hallo Pia,

ja, das war jetzt kein guter Tipp von mir.

Wie wäre es, wenn Du Deine Datei mal hochladen könntest, ggf mit anonymisierten Daten.

Gruß
Aloys
aloys78 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 30.06.2015, 15:35   #5
Pia_H.
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

Hallo Aloys,

anbei eine verkürzt Version meiner Datei mit den wichtigsten Blättern.

Also es geht um das DropDown-Feld in Zell F31. Über dieses werden die nächsten beiden Arbeitsmappen eingeblendet oder ausgeblendt.

Blattschutzkennwort: test

Makro "test" hebt denn Blattschutz auf wenn ich dieses ausführe.

Gruß
Pia
Angehängte Dateien
Dateityp: xlsm Kundenanalyse_verkürzt.xlsm (43,2 KB, 5x aufgerufen)
Pia_H. ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 30.06.2015, 15:44   #6
Pia_H.
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

Hallo EarlFred,

habe beide Varianten probiert, es klappt aber leider immer noch nicht.

Das mit dem Hacken hatte ich davor schon.
Den Code habe ich kopiert und eingefügt aber geht leider auch nicht.

Wenn ich das Makro ausführ wenn ich kein Blattschutz drin hab, dann macht er was ich will, wenn ich den dem Dropdown Feld aber nochmal was ändern will dann geht es nicht weil er sagt das ich einen Blattschutz drin hab.

Gruß
Pia
Pia_H. ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 30.06.2015, 15:35   #7
EarlFred
MOF Guru
MOF Guru
Standard

Hallo Pia,

bei der verknüpften Zelle, also F31:
Zelle formatieren, Reiter "Schutz", "Gesperrt" deaktivieren

Danach kann Du das Blatt schützen.

Vereinfachung des Codes:
Code:

Sub Dropdown6_BeiÄnderung()

'Worksheets("Ist ein AP notwendig").Unprotect Password:="test"

Worksheets("AccountPlan Übersicht").Visible = Worksheets("Ist ein AP notwendig").Cells(31, 6).Value = 2
Worksheets("ProjektAccountPlan").Visible = Worksheets("Ist ein AP notwendig").Cells(31, 6).Value = 2

'Sheets("Ist ein AP notwendig").Protect Password:="test"

End Sub
Grüße
EarlFred

__________________

Datum und Uhrzeit, Makrorekorder-Code entschlacken, {Matrixformeln}
Tutorials zu Pivottabellen: Kurzeinstieg; Dynamischer Datenbereich; Daten und Zeiten gruppieren
Für 8 meiner Beiträge haben sich die Hilfesuchenden mit einer Spende an Wikipedia, die Tafeln oder Hilfe für krebskranke Kinder eV bedankt (das entspricht 0,054% per 13.08.2019) - eine tolle Geste!
EarlFred ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 30.06.2015, 15:41   #8
EarlFred
MOF Guru
MOF Guru
Standard

Hallo Pia,

siehe Beitrag #5: In der Zelle F31 ist unter Schutz der Haken bei "Gesperrt" aktiviert.
Das Dropdown ändert den Wert der Zelle. Die Änderung muss also im Menü der Zelle erlaubt werden.

Grüße
EarlFred

__________________

Datum und Uhrzeit, Makrorekorder-Code entschlacken, {Matrixformeln}
Tutorials zu Pivottabellen: Kurzeinstieg; Dynamischer Datenbereich; Daten und Zeiten gruppieren
Für 8 meiner Beiträge haben sich die Hilfesuchenden mit einer Spende an Wikipedia, die Tafeln oder Hilfe für krebskranke Kinder eV bedankt (das entspricht 0,054% per 13.08.2019) - eine tolle Geste!
EarlFred ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Ads
Antworten


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Besucher: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge anzufügen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

vB Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist An.
Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 11:13 Uhr.



Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.

Copyright ©2000-2018 MS-Office-Forum. Alle Rechte vorbehalten.
Copyright ©Design: Manuela Kulpa ©Rechte: Günter Kramer
Eine Verwendung der Inhalte in anderen Publikationen, auch auszugsweise,
ist ohne ausdrückliche Zustimmung der Autoren nicht gestattet.