Arkadaşlar çok profösyonel bir şey değil sadece, excel çalışmalarım benim bilgisayarımdan başka bir bilgisayarda çalışmasını istemiyorum. Ama çalışanlarımında mecburen kullanması gerekiyor bu yüzden koruma şifresiyle işi çözemiyorum. Konuyu araştırdım ama bulduğum kodlar ya çalışmıyor ya ben çalıştıramıyorum. Yardımcı olursanız sevinirim.
-
DİKKAT DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Excel dosyasının kopyalanmasını nasıl engelleyebilirim.
- Konbuyu başlatan faruk588
- Başlangıç tarihi
Anladığım kadarıyla dosya sadece sizin bilgisayarınızda ve değiştirilmeden açılsın istiyorsunuz.Belgenin bir sayfasını korumak istiyorsanız 2007 de sayfayı koru diye bir seçenek var. Ancak 2003'teki karşılığını bilmiyorum.
Aslında aşağıdaki gibi bir kod var fakat makro güvenliği artırıldığında ve ya açılırken esc tuşuna basıldığında devre dışı kalıyor.
Sub Aut
pen()
Dim MyOBJ As Object
Dim MyCPU As Variant
Dim MyMsg As String
On Error Resume Next
Set MyOBJ = GetObject("WinMgmts:").instancesOf _
("Win32_Processor")
If Err.Number <> 0 Then
MsgBox "WMI yüklenmemiş! Programdan çıkılacak...", vbExclamation, _
"Windows Management Instrumentation"
Exit Sub
On Error GoTo 0
End If
For Each MyCPU In MyOBJ
MyMsg = MyCPU.ProcessorId
Next
If MyMsg = [A3].Value Then
MsgBox "Dosya çalışacaktır"
ElseIf MyMsg <> [A3].Value Then
MsgBox "HATA"
Application.ScreenUpdating = True
ActiveWorkbook.Save
Application.Quit
End If
Exit Sub
Sub Aut
pen()Dim MyOBJ As Object
Dim MyCPU As Variant
Dim MyMsg As String
On Error Resume Next
Set MyOBJ = GetObject("WinMgmts:").instancesOf _
("Win32_Processor")
If Err.Number <> 0 Then
MsgBox "WMI yüklenmemiş! Programdan çıkılacak...", vbExclamation, _
"Windows Management Instrumentation"
Exit Sub
On Error GoTo 0
End If
For Each MyCPU In MyOBJ
MyMsg = MyCPU.ProcessorId
Next
If MyMsg = [A3].Value Then
MsgBox "Dosya çalışacaktır"
ElseIf MyMsg <> [A3].Value Then
MsgBox "HATA"
Application.ScreenUpdating = True
ActiveWorkbook.Save
Application.Quit
End If
Exit Sub