Tabelleninhalt nur für bestimmte PC´s

Question

Hallo zusammen,

ich nutze eine Exceldatei mit dem Namen Test, die Datei hat 4 Tabellenblätter Tabelle1 bis Tabelle4. Öffnet man diese nun werden alle 4 Tabellenblätter angezeigt was auch so bleiben kann. ABER ist es denn möglich den kompletten Inhalt vom Tabelle4 nur für bestimmte PC´s sichbar zu machen? Hierzu brauch es dann natürlich kein Passwort.


Mit freundlichen Grüßen

energun222

Answer 1

hi all ^^

wie gewünscht :-)

gruss nighty

modul zum auslesen der cpu id nummer

Sub CPuidnummer()
Dim objCPU As Object, objItem As Object
Set objCPU = GetObject("winmgmts:\\." & "\root\cimv2").ExecQuery("Select * from Win32_Processor")
For Each objItem In objCPU
Cells(1, 1) = objItem.ProcessorId
Next
Set objCPU = Nothing
End Sub

nun zum arbeitsmappenschutz
wir nutzen das open ereignis

einzufuegen alt+f11/ürojektexplorer(DeineArbeitsmappe

Private Sub Workbook_Open()
Dim objCPU As Object, objItem As Object
Dim cpunumber As String
Set objCPU = GetObject("winmgmts:\\." & "\root\cimv2").ExecQuery("Select * from Win32_Processor")
For Each objItem In objCPU
cpunumber = objItem.ProcessorId
Next
If cpunumber = "BFEBFBFF000306C3" Or cpunumber = "xxxxxxxxxxxxxx" Then
Worksheets("Tabelle3").Unprotect Password:="mo"
Worksheets("Tabelle3").Visible = True
Else
Worksheets("Tabelle3").Protect Password:="mo"
Worksheets("Tabelle3").Visible = False
End If
Set objCPU = Nothing
End Sub

ersetze Tabelle3 mit deinem worksheetnamen
ersetze "mo" mit deinem Passwort

zur zeit werden 2 rechner abgetastet
1 rechner "BFEBFBFF000306C3"
2 rechner "xxxxxxxxxxxxxx"

ersetze diese strings mit dem zuvor ausgelesenen(CPuidnummer modul) rechner

beide rechner muessen mit dem modul ausgelesen werden um die 2 strings zu ersetzen

nun schuetze das projekt im vbed/projektexplorer
rechtsclick auf das projekt
Eigenschaften von projekt/schutz/anzeige ausblenden bzw reiter setzen/Passwort vergeben

vbed schliessen
arbeitsmappe speichern/schliessen

fertig

beim naechsten oeffnen ist nun die benannte Tabelle anhand der cpu id (2 id nummern)geschuetzt

gruss nighty

p.s.
ihr wisst ja,ich bin mit erklaerungen der groesste noob :-)

Answer 2

hi all ^^

ohne passwoerter ist es unmoeglich gewuenschtes zu realisieren
ein wenig vb Kenntnisse sollten auch vorhanden sein

gruss nighty

Answer 3

Hallo zusammen,

danke nighty, funktioniert bestens. Ich frag mich nur wozu dieses Passwort sein soll. Es gibt nirgends eine Abfrage zumindestens nicht für den User


Gruß

energun222

Answer 4

hi energun222 ^^

damit keiner den code aendert

allerdings stellte ich noch eine luecke fest
bei deaktivierten makros ist alles ausgehebelt
da muss ich mich erst schlau machen ,das die abfrage nicht kommt
oder vielleicht weiss das ja ein anderer member ^^

gruss nighty

Answer 5

hi energun222 ^^

die passwoerter sind wie oben beschrieben "mo" im code
und ein neues das du dir merken solltest fuer das projekt
damit keiner den code aendern kann

gruss nighty

Answer 6

hi all ^^

zum ausschalten der abfrage

Menue Extras - Makro - Sicherheit

niedrigste Einstellung waehlen

gruss nighty

das sicherheitsmenue zu loeschen ist der naechste schritt
da muss ich erstmal schauen wie das geht :-)
dann waere es perfect ^^ :-))

Answer 7

hi energun222 ^^

deaktiviert/aktiviert das extras menue

Sub ausblenden()
Dim ctrl As CommandBarPopup
Set ctrl = Application.CommandBars.FindControl(ID:=30007)
If ctrl Is Nothing Then Else ctrl.Enabled = False
End Sub

Sub einblenden()
Dim ctrl As CommandBarPopup
Set ctrl = Application.CommandBars.FindControl(ID:=30007)
If ctrl Is Nothing Then Else ctrl.Enabled = True
End Sub

nachden die Sicherheitsstufe auf niedrig gestellt ist,deaktivieren und speichern
beide makros koennen in der Mappe verbleiben,da das projekt geschuetzt ist

gruss nighty

Answer 8

hi energun222 ^^

du musst dir also 1 Passwort merken,das das projekt schuetzt

fuer den normalbuerger sehr gut geschuetzt

gruss nighty

Answer 9

Hi,

sorry das ich mich erst jetzt wieder melde. Werd das ganze mal in Ruhe testen. :-)

Bis hierher schon mal Danke für deine Mühe!


Mit freundlichen Grüßen

energun222

Answer 10

Hi nighty,

probiere doch bitte mal mit deaktivierten Makros und mit aktivierten Makros den 3.Reiter zu öffnen. Wenn das wirklich gehen sollte, also wenn du es nicht zu sehen bekommst dann könnte man ja jedem scripte unterjubeln ob der Kunde nun bei sich Makros aktiviert hat oder nicht.

ich bin ein Link

Würd das gerne verstehen. :-)


Oder ist es gar so:

Das der Reiter von vorn herein schon ausgeblendet wird wenn Makros deaktiviert sind?

Mit freundlichen Grüßen

energun222

Sorry für Doppelpost, aber hat mir dann doch keine Ruhe gelassen. :-)