'--- 시트의 개수와 이름

Option Explicit

'--- 시트의 개수와 이름

Sub Sample103()

    MsgBox "시트의 개수 : " & Sheets.Count & vbCr & _

                  "마지막 시트의 이름 : " & Sheets(Sheets.Count).Name

End Sub

'--- 시트 삽입하기

Sub Sample104()

    Dim intNum As Integer

    intNum = Sheets.Count

    Worksheets.Add after:=Worksheets(intNum)

    ActiveSheet.Name = "Sample"

End Sub

'--- 시트 복사하기

Sub Sample105()

    Sheets(Sheets.Count).Copy before:=Sheets(1)

    ActiveSheet.Name = "Sample105"

End Sub

'--- 시트 이동하기

Sub Sample106()

    Sheets(Array(1, "Sheet3", 5)).Move after:=Sheets(Sheets.Count)

End Sub

Sub Sample106_1()

    Dim shArray(), intA As Integer

    shArray = Array("Sheet5", "Sheet4", "Sheet3", "Sheet2", "Sheet1")

    For intA = UBound(shArray) To 0 Step -1

        Sheets(shArray(intA)).Move before:=Sheets(1)

    Next

End Sub

'--- 시트 삭제하기

Sub Sample107()

    Dim intCount As Integer, intSh As Integer

    Application.DisplayAlerts = False

    intSh = Sheets.Count

    For intCount = intSh To 1 Step -1

        If Sheets(intCount).Name Like "Sheet*" Then

            If Sheets.Count > 1 Then

                Sheets(intCount).Delete

            Else

                MsgBox "통합 문서에는 시트가 적어도 하나 이상 있어야 합니다." & vbCr & _

                              "따라서 " & Sheets(intCount).Name & "시트는 삭제할 수 없습니다."

            End If

        End If

    Next

    Application.DisplayAlerts = True

End Sub

'--- 시트 숨기기

Sub Sample108()

    Dim intCount As Integer, intSh As Integer

    For intCount = 1 To Sheets.Count

        If Sheets(intCount).Visible = xlSheetHidden Then intSh = intSh + 1

    Next

    MsgBox "시트의 개수 : " & Sheets.Count & vbCr & _

                 "숨겨진 시트 : " & intSh

End Sub

'--- 시트 보호하기

Sub Sample109()

    Sheets("Sheet1").Select

    Range("E3:E9").Locked = False

    ActiveSheet.Protect "12345"

End Sub

'--- 시트 선택과 활성화

Sub Sample110()

    Sheets("Sheet1").Select

    Sheets("Sheet3").Select False

    Sheets("Sheet5").Select False

    MsgBox "3개의 시트를 선택했습니다." & vbCr & _

                  "활성 시트는 " & ActiveSheet.Name & " 입니다."

    Sheets("Sheet5").Activate

    MsgBox "활성시트는 " & ActiveSheet.Name & " 입니다."

End Sub