Anmelden
Anmelden
Registrieren
Supportnet Forum
Alle Aktivitäten
Alle Fragen
Beliebt!
Unbeantwortet
Themen
Kategorien
Benutzer
Frage stellen
Frage stellen
Formel schützen, Zelle muss aber auswählbar bleiben ... ?
1.6k
Aufrufe
Gefragt
6, Jun 2009
in
Tabellenkalkulation
von
petra65
Experte
(
1.8k
Punkte)
Hallo,
ich habe - leider - schon wieder eine Frage ... ;-)
In meiner Kunden-Tabelle komme ich per HYPERLINK in eine 2. Tabelle.
Ich möchte nun diese Zellen (A10:A100) der Tabelle Kunden vor Veränderungen schützen, damit der Link geschützt ist. Doch wenn ich den Blattschutz einsetze funktioniert ein Makro nicht mehr perfekt.
Ich habe bereits in dem Makro versucht den Schutz am Anfang zu löschen und am Ende wieder zu setzen. Das Löschen funktioniert, leider das aktivieren nicht (ActiveSheet.Protect bestimmt an falscher Stelle ?)
Dieser Tipp aus dem Internet funktioniert nicht (ich kann die Zellen trotzdem überschreiben):
... Register Schutz den Haken bei 'Gesperrt' herausnehmen
... anschließend: Menü Extras - Schutz - Blatt schützen
Die Formeln sind jetzt immer noch sichtbar aber die Zellen mit den Formeln sind vor versehentlichem Überschreiben geschützt.
Hat jemand eine Idee wie ich das lösen kann???
Vielen Dank ...
Gruss - Petra
3
Antworten
0
Punkte
Beantwortet
7, Jun 2009
von
franky1909
Mitglied
(
557
Punkte)
Morgen.
ich habe zwar nicht soviel Ahnung, aber wenn die oder der Schutz nicht vorher deaktiviert wird, kannst Du machen was Du willst, ärgo vorher Schutz deaktiviern, Neustart , dann sollte es funktionieren.
Grussn Frank
0
Punkte
Beantwortet
7, Jun 2009
von
fedjo
Hallo Petra,
Code in die Tabelle einfügen, alle Zellen mit Formel werden geschützt.
Gruß
fedjo
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Zelle As Range
For Each Zelle In Target.Cells
'Wenn die Zelle eine Formel enthält, dann schützen
If Zelle.HasFormula Then
'Blattschutz aktivieren
ActiveSheet.Protect "fedjo" 'Dein Passwort
Else
'Blattschutz aufheben
ActiveSheet.Unprotect "fedjo" 'Dein Passwort
End If
Next Zelle
End Sub
0
Punkte
Beantwortet
7, Jun 2009
von
petra65
Experte
(
1.8k
Punkte)
Hallo fedjo,
genau so solle es sein ... ;-) , funktioniert super gut ....
Vielen Dank und viele Grüße
Petra
Deine Antwort
Dein angezeigter Name (optional):
Ich möchte eine Email an folgende Adresse erhalten, wenn meine Antwort ausgewählt oder kommentiert wird:
Ich möchte eine Email erhalten, wenn meine Antwort ausgewählt oder kommentiert wird
Datenschutz: Deine Email-Adresse benutzen wir ausschließlich, um dir Benachrichtigungen zu schicken. Es gilt unsere Datenschutzerklärung.
Anti-Spam-Captcha:
Bitte
logge dich ein
oder
melde dich neu an
, um das Anti-Spam-Captcha zu vermeiden.
58.4k
Fragen
249k
Antworten
7k
Nutzer
Alle Kategorien
Windows 11
(78)
Windows 10
(1.8k)
Windows 8
(648)
Windows 7
(5.8k)
WindowsVista
(2.8k)
WindowsXP
(8.8k)
Windows2000
(239)
Windows NT
(29)
WindowsME
(77)
Windows98
(342)
Windows95
(29)
BS-Sonstige
(531)
Linux
(757)
Textverarbeitung
(1.3k)
Tabellenkalkulation
(7.3k)
Datenbanken
(985)
Bildbearbeitung
(648)
Security Viren
(823)
E-Mail Outlook
(2.4k)
Präsentation
(226)
Internet Browser
(1.9k)
SW-Sonstige
(1.6k)
Mainboard CPU RAM
(1.6k)
Grafikkarten
(980)
Peripherie
(1k)
Smartphone
(475)
DigitalKameras
(182)
HW-Sonstiges
(2.6k)
DSL
(674)
ISDN
(138)
W-LAN
(1.2k)
Modem
(205)
Telekommunikation
(894)
NW-Sonstiges
(724)
Skripte(PHP,ASP,Perl...)
(607)
Webseiten HTML
(871)
Anwendungen(Java,C++...)
(500)
PC-Sonstiges
(2.7k)
Plauderecke
(3.4k)
SN Intern
(395)
Test
(238)
temp
(0)
Beliebteste Themen
excel
vba
windows
windows10
10
makro
outlook
android
word
vba-excel
google
formel
pc
access
update
bedingte_formatierung
e-mail
wlan
makros
drucker
...