ซ่อน Sheet ทั้งหมดยังไงครับ...

[mr.zatan]

คือผมจะซ่อน Sheet ที่ทีคำว่า photo_





นี่ Code ที่ผมใช้ แต่มันซ่อนได้ทีล่ะ Sheet

*** อยากให้ซ่อนทีเดียวทั้งหมดเลย ***

Code: Select all

sub HideSheet()
Dim ws As Worksheet
	for Each ws in thisworkbook.worksheets
		if left(ws.name, 6) = "Photo_" then
			ws.visible = xlsheethidden
		end if
	next ws
end sub

[snasui]

ไม่ทราบว่า Code ที่เขียนมาแล้วนั้นติดปัญหาใดครับ

[tigerwit]

Code: Select all

Option Explicit

Sub HideTab()
'Code โดย คนควน"
    ActiveWindow.DisplayWorkbookTabs = False
End Sub

Code: Select all

Private Sub Workbook_Open()
'Code โดย คนควน"
Call HideTab
End Sub

ลองนำไปปรับประยุกต์ใช้ครับ

[snasui]

คือผมจะซ่อน Sheet ที่ทีคำว่า photo_





นี่ Code ที่ผมใช้ แต่มันซ่อนได้ทีล่ะ Sheet

*** อยากให้ซ่อนทีเดียวทั้งหมดเลย ***

Code: Select all

sub HideSheet()
Dim ws As Worksheet
	for Each ws in thisworkbook.worksheets
		if left(ws.name, 6) = "Photo_" then
			ws.visible = xlsheethidden
		end if
	next ws
end sub

จากภาพสังเกตว่าชื่อชีทแม้จะชื่อด้านหน้า 6 ตัวเหมือนกันแต่มีตัวอักษรไม่เหมือนกัน สามารถใช้ Code ตามด้านล่างได้ครับ

Code: Select all

Sub HideSheet()
    Dim ws As Worksheet
    For Each ws In ThisWorkbook.Worksheets
        If LCase(Left(ws.Name, 6)) = "photo_" Then
            ws.Visible = xlSheetHidden
        End If
    Next ws
End Sub

[snasui]

Code: Select all

Option Explicit

Sub HideTab()
'Code โดย คนควน"
    ActiveWindow.DisplayWorkbookTabs = False
End Sub

Code: Select all

Private Sub Workbook_Open()
'Code โดย คนควน"
Call HideTab
End Sub

ลองนำไปปรับประยุกต์ใช้ครับ

ช่วยแก้ไข Code ด่วน ถ้าผมไม่ได้เขียนห้ามอ้างถึงผมครับ

[tigerwit]

สวัสดีครับ...
ผมได้รับคำแนะนำเรื่องการ Code VB จากคุณ คนควน เสมอ
งานที่ผมทำส่าวนใหญ่ทำกับโรงเรียนเช่น ปพ.5 งานการเงิน
ซึ่งได้รับคำแนะนำจากที่นี้ เดี๋ยวลองค้นดูครับว่า กระทู้นั้นอยู่ที่ไหน
บังเอิญว่าตอนตอบผมไปลอกโค๊ด มาจากงานที่ทำ แล้วติดเครดิตนี้มาด้วยครับ

ค้นแล้วไม่เจอครับ...
จะลบให้ก็ไม่ได้

แต่ยืนยันว่าได้รับการแนะนำจากคุณ คนควน จริง
รู้สึกว่ากระทู้นั้น จะถามตอบกันยาวพอสมควรเพราะทำแล้ว มันซ่อนไม่ได้
จนมาลงตัว ที่ Code ครับ
ทุกงานที่ผมทำก็ใช้โค๊ดนี้ซ่อนแท็บชีทไม่ให้ผู้ใช้งานเห็นเสมอ

[snasui]

ไม่เป็นไรครับ หากยืนยันว่าได้รับคำแนะนำจากผมจริง (ซึ่งอาจจะผ่านจากที่ผู้อื่นถาม) ก็ไม่ได้ติดใจอะไรและขอบคุณที่ให้เครดิตครับ

[mr.zatan]

ขอบคุณทั้ง 2 ท่านครับ..