나눔터  
  HOME > 나눔터 > 묻고답하기 > 엑셀
엑셀
엑셀에 대한 질문과 답변을 올려주세요. 단, 취지에 맞지 않는 글은 운영자가 삭제합니다.
 "000 님, 도와주세요", "부탁 드립니다.", "급합니다!" 등과 같이 막연한 제목을 달지 말아주세요.
[필독] 빠르고 정확한 답변을 얻는 16가지 Tip !
[필독] 저작권법 개정에 따른 이용안내

작성자:  

 오드리 (catsqueen)

추천:  2
파일:     조회:  2493
제목:   재부팅방법...(잘안되네여..다시도와주세여)
     
  * 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.

1. 엑셀 버전(95,97,2000,2002):
2000
2. 윈도우즈의 버전(win95,win98,winME,winNT,win2000,winXP):

모든 버전에 대해서
3. CPU (486,PentiumI/II/III/IV...):
4. RAM (32,64,128,256,512MB,1G...): 

* 아래줄에 질문을 작성하세요 >>

엑셀에서 버튼클릭시 윈도우를 재부팅 하게 하려고 하는데..
어떻게 코딩해야할지..모르겠네여.

 
[불량 게시물 신고]  
작은오리꼭 필요한지 모르겠군요.. ^^*
암튼 아래를 참고하세요.

Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long
Const EWX_REBOOT = 2

Sub winExt()
    Dim msg As String
    msg = MsgBox("시스템을 재 부팅하시렵니까?", vbExclamation + vbOKCancel)
    If msg = vbOK Then
        ExitWindowsEx EWX_REBOOT, 0
    End If
End Sub

08-06 (11:43)
삭제 ■신고
오드리^^ 꼭 필요하답니다.. 근데 안되는걸여...08-06 (11:53)
삭제 ■신고
최강자폐작은오리님꺼 약간 수정하였습니다. (약간 간단하게 -_-;;)

Private Declare Function ExitWindowsEx Lib" user32" (ByVal a, ByVal s) As Long

Sub aa()
  ExitWindowsEx 2,0
End sub
08-06 (12:31)
삭제 ■신고
오드리오류번호53, 파일을 찾을수 없습니다.'user32'라고 하는데여..
왜그런거져??
08-06 (13:37)
삭제 ■신고
작은오리위 코드를 모듈에서 실행했는데 아니된다면

C:\WINDOWS\SYSTEM 폴더내에 User32.dll 파일이 없어서 나타나는 현상인 듯 하네요 다른 컴퓨터에서 User32.dll를 복사해 붙여넣어서 실행해 보세요..

잘 되시기를 바랍니다.
08-06 (13:57)
삭제 ■신고
오드리:\WINDOWS\SYSTEM 폴더내에는 User32.dll 파일이 없구여.
:\WINDOWS\SYSTEM2 폴더내에 User32.dll 파일이 있거든여. 이럴때는 어떻게 해야하나여? 그리고 환경마다 파일위치가 틀리다면 어떻게 해야하나여? 기본으로 등록되어있는거 아닌가여?
08-06 (14:00)
삭제 ■신고
작은오리C:\WINDOWS\SYSTEM 폴더내에 User32.dll 파일을 복사해 붙여넣으시구요

기본적으로 위 폴더에 설치되는 걸로 아는데 타 프로그램 설치시 경로를 위 폴더로 해주지 않아서 그런것이지도 모르겠군요..
더 이상은 저도 허접해서리.....여그까지만..

잘 되시기를 바랍니다...
08-06 (14:11)
삭제 ■신고
        
  

작성일 : 2003-08-06(11:29)
최종수정일 : 2003-08-06(13:49)