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 energun222

das blatt ist geschuetzt per Passwort bei Ausblendung
bei Einblendung ungeschutzt

gruss nighty

Answer 2

Hallo nighty,

wenn ich mit der falschen cpuid die Datei öffne macht es das was es soll (ausblenden) ich kann aber ganz einfach unten auf einblenden klicken und den Tabellenreiter öffnen/einblenden.


Mit freundlichen Grüßen

energun222

Answer 3

hi

jetzt weiss ich was du meinst
bei mir ist der reiter nicht

ich mach mich schlau

gruss nighty

Answer 4

hi

im vbed das worksheet schuetzen und reiter bei anzeige reiter setzen
so hattest du ja auch vorgeshlagen

gruss nighty

Answer 5

Hallo nighty

ich komm bei deinem letzten nicht so ganz mit. :-) Was soll ich jetzt machen?

MfG

energun222

Answer 6

hi energun222

letzte war durcheinander gekommen

ich lass mir was einfallen

gruss nighzy

Answer 7

hi

probier mal
ob dein reiter noch funktioniert :-)

gruss nighty

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 = "Rechner2_Cpuid" Or cpunumber = "Rechner3_Cpuid" Then
Worksheets("Tabelle3").Unprotect Password:="mo"
Worksheets("Tabelle3").Visible = True
Else
Worksheets("Tabelle3").Protect Password:="mo"
Worksheets("Tabelle3").Visible = xlVeryHidden
End If
Set objCPU = Nothing
End Sub

Answer 8

Hallo nighty,

also einblenden geht dann nicht mehr aber wenn ich Makros deaktiviere bleibt alles zu sehen. :-(


Mit freundlichen Güßen

energun222

Answer 9

Hallo nighty,

eigentlich kann man das ganze als OK markieren, denn es macht genau das was es soll! Es muss halt sicher gestellt sein das beim Kunden oder an einem anderen PC Markros aktiviert sind. Eigentlich Schade das es so wenig Möglichkeiten für den Schutz gibt.

Trotzdem vielen vielen Dank für deine Mühe es werden sicher noch einige nutzen können da bin ich mir sicher. :-)


Mit freundlichen Grüßen

energun222