Ausgrauen von Bereichen ausserhalb einer Tabelle!

Question

Hallo miteinander,

ich habe ein Exceltabelle entwickelt, die ich – bis auf die auszufüllenden Felder - nicht nur schützen will (da weiß ich wie das geht), sondern ich möchte auch den Bereich außerhalb der Tabelle ausgrauen. Gibt es da eine schnelle Lösung für?

LG besign2

Answer 1

Hallo,

Bereich außerhalb der Tabelle ausgrauen

Ist das Ausblenden gemeint?


Gruß
fedjo

Answer 2

Hallo besign2
Zeile oder Spalte neben der Tabelle markieren und dann Strg+Shift + Pfeil nach rechts oder nach unten, danach die rechte Maustaste Zeilen oder Spalten ausblenden.

Gruß
fedjo

Answer 3

hi all ^^

ein Beispiel

gruss nighty

Sub MenueDateiOff()
Application.CommandBars("Worksheet Menu Bar").Controls("Datei").Enabled = False
End Sub

Sub MenueDateiOn()
Application.CommandBars("Worksheet Menu Bar").Controls("Datei").Enabled = True
End Sub

Answer 4

hi all ^^

kommplette ausblendung

gruss nighty

Sub MenueOff()
Application.CommandBars("Worksheet Menu Bar").Enabled = False
End Sub

Sub MenueOn()
Application.CommandBars("Worksheet Menu Bar").Enabled = True
End Sub

Answer 5

Hallo nighty,

besten Dank für deine Antwort; leider bin ich dann ich Excel doch nicht so gut, dass ich dein Beispiel umsetzen kann. Das ist sicher VBA, oder?

Was mache ich damit?

Liebe Grüße
Besign2

Answer 6

hi all ^^

teste mal folgendes

alt + f11 öffnet den vb Editor

im vb Editor
einfuegen modul

dort werden beide module erstmal eingefuegt (kopiert im Forum eingefuegt im vbeditor)

nun setze deinen curser auf ein makro und drücke dann f5 zum startrn

deine menues sind nun ausgeblendet bzw der Nutzer waere jetzt eingeschraenkt

das zweite makro schaltet es wieder ein

Sub MenueOff()
Application.CommandBars("Worksheet Menu Bar").Enabled = False
End Sub

Sub MenueOn()
Application.CommandBars("Worksheet Menu Bar").Enabled = True
End Sub

nun das erste Beispiel das das open wie Close Ereignis von Excel nutzt und dir einen Automatismus ermöglicht

im vbeditor
Ansicht/projectexplorer
doppelclick auf DieseArbeitsmappe

folgende makros dort einfuegen

Private Sub Workbook_Open()
Application.CommandBars("Worksheet Menu Bar").Enabled = False
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.CommandBars("Worksheet Menu Bar").Enabled = True
End Sub

Editor schliessen,datei speichern

wird die Datei naechstes mal geoeffnet werden die menues aautomatisch ausgeblendet

wird die Datei geschlossen,wieder eingeblendet

gruss nighty

Answer 7

hi all ^^

noch ein Beispiel des Automatismus

gruss nighty

im vbeditor
Ansicht/projectexplorer
doppelclick auf DieseArbeitsmappe und einfuegen

Private Sub Workbook_Open()
MsgBox ("Einen schönen guten Tag " & "" & Mid(Environ(34), InStr(1, Environ(34), "=") + 1, Len(Environ(34)) - InStr(1, Environ(34), "=") + 1))
End Sub

das waeren die kleinen unnötigen dinge die den Nutzer erfreuen :-))

Answer 8

Hallo nighty,

irgendwie erscheine ich zu blöd dafür… ;-)
Habe alles entsprechend abgearbeitet, aber es tut sich nichts!
Die Excel-Datei musste ich zwar als Excel mit Marko abspeichern, aber sonst ist alles unverändert; egal welche Datei ich öffne. Kannst Du bitte noch mal helfen?

LG Besign2

Answer 9

hi all ^^

Excel vb kurs mit YouTube

gruss nighty

https://www.youtube.com/watch?v=qIYm9FwU01c
oder
https://www.youtube.com/watch?v=J1UwDw-prSc