excel kullanımını sınırlama

[recep]

excel çalışam kitabın mesala 10 dafa açap kapandıktan sonra birdaha açılmamasını sağlamak için nasıl bir yol izleyebilir.( demo gibi) :? :?

 

[zimamdar]

auto_open içinde bir kod yazarak belirlediğiniz hücrenin değerine her açılışda +1 ekleyip 10 ise exceli kapattırabilirsiniz.

Peki bu işin kodları nasıl olacak derseniz buraya bakınız.

 

[recep]

Peki bu işin kodları nasıl olacak derseniz buraya bakınız.[/quote]

demişsin

ama tikladığımda sorumla ilgili birşey çıkmıyor. :kafa:

 

[zimamdar]

basit bir örnek olarak aşağıdaki gibi

sub auto_open()
If [a1] = "" Then [a1] = "1"
If [a1].Value < 10 Then [a1] = [a1] + 1
If [a1].Value = 10 Then
msgbox "10 defa açıldı"
activewindow.close true
end if
end sub

 

[Levent Menteşoğlu]

Aşağıdaki gibi bir kod deneyin. Kod A1 hücresini her seferinde bir arttırır,10 olduğunda ise dosyayı açılmadan tekrar kapatır. Fakat makrolar devre dışı bırakılırsa bu kod hiç bir işe yaramaz.
[vb:1:3a32f73431]
Sub auto_open()
[a1]=[a1]+1
if [a1]=10 then application.quit
end sub[/vb:1:3a32f73431]

 

[recep]

autu_open makrom varbir tane daha ekleyemiyorum

şöyle


Const strTxtFile As String = "C:\koruma.txt"
Const MyCheckVal As Long = 123456
'
Sub Autpen()
Sheet ("ANA SAYFA").Selecet
Dim InputData As Variant
Dim FileNum As Long
Dim x As Integer
FileNum = FreeFile
If Dir(strTxtFile) <> Empty Then
Open strTxtFile For Input As FileNum
x = x + 1
Do While Not EOF(FileNum)
Line Input #FileNum, InputData
If Left(InputData, 6) <> MyCheckVal Then GoTo NoGo:
If x = 1 Then Exit Sub
Loop
Close FileNum
ThisWorkbook.IsAddin = False
Else
NoGo:
ThisWorkbook.IsAddin = True
MsgBox "Kayitli kullanici degilsiniz....", vbCritical, "Kullanicinin dikkatine !"
ThisWorkbook.Close SaveChanges:=False
End If
End Sub
'


bun :hey: un içine nasıl yerleştirebilirim

 

[Levent Menteşoğlu]

Kodlarınızın en üstüne yazabilirsiniz.

 

[recep]

makroların kendiliğinden çalışmasını sağlayacak bir kot yok mu her severinde güvenlik seviyesini sormasın ve orta seviyede çalışsin

 

[cako]

Güvenlik seviyesini ortaya al. Bir defa alırsan öyle kalır zaten

 

[Levent Menteşoğlu]

Güvenlik seviyesini düşük yaparsanız otomatikman çalışır.

 

[recep]

başka bir bigisayara çalışmamızı aktardığımızda kendiliğinden o bilgisayardaki ofis programının excel makro güvenlik seviyesini ortaya çöekmesini istiyorum. amacım çalışmanın güvenliğini arttirmak. istediğim kadar açılıp kapatılsın. 20 gün sonra kendisini silsin ve başka bilgisayara izinsiz kopyalandığımda açılmasın. tek sorunum makroların givenlik seviyesi .en üst ve makro iptal denince hepsi bozuluyor.

 

[Haluk]

Makro güvenlik seviyesini VBA kodlarıyla ayarlamanız mümkün değil.

Yoksa, "güvenliğin" bir esprisi kalmaz...

 

[recep]

bir yolu var ama ben nasıl bilmiyorum bir excel benim güvenlik seviyemi düşüge indirdiler. ve vürüs bulaştırdılar. nasıl oldu anlayamadım.genellikle yüksek deyip o günden sonra kendi bigisayarım da makrolarını incelkeyebildiğim çalışmaları açıyorum. ilk denemeleri her seferinde internet kafede :agla:

 

[yasso38]

A1 hücresinin değerini açılışta 1 artırıyor. Fakat kullanıcı dosyayı açtıktan sonra kaydetmezse bir işe yaramaz.

Bunu nasıl önleriz?

 

[Seceren]

Bunu deneyin.

Sub auto_open()
If [a1] = "" Then [a1] = "1"
If [a1].Value < 10 Then [a1] = [a1] + 1
If [a1].Value = 10 Then
MsgBox "10 defa açıldı"
ActiveWindow.Close True
End If
ActiveWorkbook.Save
End Sub

 

[yasso38]

Sub Auto_Close()
ThisWorkbook.Save
End Sub

Proplemi bo&#351; mod&#252;l sayfas&#305;na yukar&#305;daki kodu uygulayarak &#231;&#246;zd&#252;m. Fakat, dosya korumal&#305; oldu&#287;u i&#231;in bir &#246;nceki kodu a&#351;a&#287;&#305;daki gibi de&#287;i&#351;tirdim. Bu seferde A1 h&#252;cresi 5 olunca dosya a&#231;&#305;lm&#305;yor buras&#305; tamam. Yaln&#305;z makrolar&#305; etkinle&#351;tirme se&#231;ene&#287;ini se&#231;ti&#287;imizde dosya korumas&#305;z kal&#305;yor. Dosya korumas&#305;n&#305; her zaman aktif yapabilirmiyiz.

Asl&#305;nda makrolar&#305; etkinle&#351;tirmedi&#287;imiz zaman dosya pek i&#351;e yaramaz da, yine de konuyu &#246;&#287;renirsek iyi olur. Mesela dosya komple kullan&#305;lmaz hale gelse. Yani A1 h&#252;cresinin de&#287;eri 5 olunca bir makro devreye girse dosyadaki t&#252;m &#231;al&#305;&#351;ma sayfalar&#305;n&#305; silse. Bu yap&#305;labilir san&#305;r&#305;m. Yard&#305;mlar&#305;n&#305;z&#305; bekliyorum.

Sub auto_open()
ActiveSheet.Unprotect ("dosya koruma şifresi")
If [a1] = "" Then [a1] = "1"
If [a1].Value < 5 Then [a1] = [a1] + 1
If [a1].Value = 5 Then
MsgBox "Kullan&#305;m S&#252;reniz Doldu"
ActiveWindow.Close True
End If
ActiveSheet.Protect ("dosya koruma &#351;ifresi")
End Sub

O p