Sayfalar görünmesin

[benkimim96]

Merhaba
Sizlere iki sorum olacak, yardımcı olursanız sevinirim. Ben Devlet kurumunda çalışıyorum ve de bize veri gönderen bağlı kurumlar var. Verilerde birliği sağlayabilmek adına bazı formları kendimce düzenleyen excel tabloları oluşturdum. Bu tablolar 1'den fazla sayfa içeriyor (her ay için bir sayfa). Kurumlardaki arkadaşlar sağolsunlar bir şekilde çalışmalarda benim aslında ulaşmalarını ve de değiştirmelerini istemediğim verileri şifrelesemde bir şekilde değiştiriyor ve de bozuyorlar. Bu yüzden veri girişlerini userform lar vasıtasıyla yapacakları bir tablo oluşturdum. Ancak arkadaşların sayfa sekmelerini görmelerini istemiyorum. Bu işlemi araçlar/seçenekler haricinde bir yöntem ile nasıl yapabilirim. Bir de dediğim gibi her ay için ayrı bir sayfa var ve de userform üzerinde bir combobox ile veri girilecek ayı ve dolayısıyla sayfayı seçiyoruz. userform üzerine koyacağımız yazdır butonu ile nasıl sadece bu sayfayı yazdırabiliriz.
Şimdiden teşekkürler, saygılar...

 

[armandos]

Sayfa isimlerinin görünmemesi için;

Module bölümüne;

Global WCnt
Global Sh(1 To 100) As Worksheet
Global ShNames(1 To 100) As String

'workbook'un code una;

Public Sub Workbook_Open()
Dim i As Integer
WCnt = Worksheets.Count
For i = 1 To WCnt
ShNames(i) = Sheets(i).Name
Set Sh(i) = Sheets(ShNames(i))
Next i
End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim z As Integer
For z = 1 To WCnt
Sh(z).Name = ShNames(z)
Next z
End Sub

İnşallah işinize yarar.

Siteden Son kod arsivi yazarak arattırıp dosyayı indirirseniz işinize yarayacak bir çok kodu bulabilirsiniz.

 

[bugmenot]

merhaba
örnek dosya eklermisiniz.?

 

[benkimim96]

Sayın Armandos ilginize teşekkürler, deneyeceğim.

Sayfa isimlerinin görünmemesi için;

Module bölümüne;

Global WCnt
Global Sh(1 To 100) As Worksheet
Global ShNames(1 To 100) As String

'workbook'un code una;

Public Sub Workbook_Open()
Dim i As Integer
WCnt = Worksheets.Count
For i = 1 To WCnt
ShNames(i) = Sheets(i).Name
Set Sh(i) = Sheets(ShNames(i))
Next i
End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim z As Integer
For z = 1 To WCnt
Sh(z).Name = ShNames(z)
Next z
End Sub

İnşallah işinize yarar.

Siteden Son kod arsivi yazarak arattırıp dosyayı indirirseniz işinize yarayacak bir çok kodu bulabilirsiniz.

 

[benkimim96]

Yazdırma işini sanırım çözdüm, notebookumda işyerimin yazıcısı yüklü olduğu için yarın deneyeceğim. İlginize teşekkürler.

merhaba
örnek dosya eklermisiniz.?

 

[benkimim96]

Hocam pardon şifreli olarak göndermişim sayfa koruma şifresi q7a4z1

 

[armandos]

Hocam pardon şifreli olarak göndermişim sayfa koruma şifresi q7a4z1

Ekteki dosyanızda sayfa isimleri zaten görünmüyor.

 

[benkimim96]

Ekteki dosyanızda sayfa isimleri zaten görünmüyor.

Hocam doğruda makroları etkinleştirmeyip araçlar seçenekler vasıtasıyla görünür hale getirebilirler